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PROGRAMAS 
ORIGINALES 
DE IMPORTACION 
PARA 

commodore 


TODOS ESTOS PROGRAMAS 
HAN ESTADO SITUADOS 
ENTRE LOS CINCO 
PRIMEROS PUESTOS 
DE LAS LISTAS 
DE SUPERVENTAS 
BRITANICAS 


WIMBLEDON 64 Uno de los mejores 
juegos de simulación de deportes concebí 
do para C-64 (C & V GAMES' Horas de 
entretenimiento para los amantes del tenis 
y admiradores de McEnroe Connors y Borg 
(POP COMP WKLY) Los gráficos lamovih 
dad y el control de las lugadas es fantástico 
(YOUR 641 2 300 pts 


BEACH HEAD. El juego mas popular de 
America con los mas sorprendentes efectos 
de animación (COMP ANSWER) los mejo¬ 
res efectos de sonido y gráficos para este 
computador (U S BILLBOARD' Múltiples 
pantallas fantásticos efectos tridimensio¬ 
nales en un escenario de acción bélica Un 
best-seller i GAMES' 2 300 pts 


MANIO MINER Verdaderamente supera 

a la versión líder de ventas para Spectrum 
(COM USGR V Pantallas y pantallas con 
todo tipo de gráficos colores y efectos 
musicales (HOME COMP WKLY) Super.ora 
Miner 2049 Sin maslCRASH' 1 800 pts 


COLOSSUS CHESS 2° Ere 
inteligencia es indiscutible er ct 
blioteca (GAMES i El juego mejor a¡ 
su categoría (POP COMP MVB 
sin duda 4 estrellas (COMP j 
GAMESl 


DECATHLON La animación y los gráficos 
de los atletas es soberbia (PC GAMES 
Decathlon es una bella simulación de los 10 
eventos de la popular prueba olímpica iPO 
PULAR COMPUTING) Uno de los programas 
mas adictivos y espectaculares que he 
conocido (CRASH) 7 800 pts 


PITFALL Uno de los juegos para Atan 
mas vendidos en U S A ahora en COMMO 
OORE (WHAT MICRO' Caimanes serpien 
tes escorpiones una selva en tu 64 
(GAMES COMPUTING /Quien ha sido 
capa; de encontrar los 32 tesoros escon 
didos en menos de 20 minutos 7 i ElEC 
TRONIOS & GAMES' 2 800 pts 


SOLO FLIGHT Incomparable, solo nece¬ 
sita pista y alas (COMPUTE) Constantes 
efectos tridimensionales, perfecto scroll y 
auténticos efectos sonoros (RUN) 21 aero¬ 
puertos diferentes idénticos instrumentos 
de bordo emergencias V O.R una perfecta 
simulación de vuelo (COM USER) 

3.900 pts 


ENCOUNTER. Los gráficos son perfec 
tos. el efecto tridimensional soberbio Este 
juego es un primera clase (WICH MICRO 1 
ENCOUNTER es el juego de salón mas com 
pleto escrito para un ordenador personal 
(GAMES) Nuestra puntuación un 10 
(TPUG) 2 300 pts 


ASTRO CHASE 34 pantallas con carica 
turas animadas en tres dimensiones 
(GAMES) Juego de fantasía y ciencia fie 
cion del año 1984 (ELECTRONIC GAMES La 
mayor innovación en videojuegos íTHE 
WHIZ KIO) Este programa batira todos los 
records de supervenías (RUNi 2 300 pts 


«Ug.-fCr.nte altamente 

Color y sonido 
■Píos perfectos, nuestra pun- 
10 (COMP & VIDEO GAMES) 

1 800 pts 
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COMMODORE 64 

TRON 

FROGGER (Joystick) 
KONG 

SCREEN GRAPHICS 
ENSAMBLADOR 


1700 
1 700 
1 700 
1800 
1900 


3. 8. 16K 1600 
3. 8, 16K 1 700 
Std 1600 
Std 1600 
3. 8. 16K 1 600 
Std 1600 



VIC-20 

JOY STICK PAINTER 

PIPER 

TRON 

INVASION 

PHANTON 

PARATROPFRS 


Envíenos a MICROBYTE San Gerardo. 59 MADRID-3 
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Juego 

Precio 


Apellidos 




Dirección 




Población 




D.P Teléfono 




Incluyo talón nominativo □ 

Contra Reembolso □ 

C.NV ENVIOS gratis 
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SUSCRIPCIONES 

Rogamos dirija toda la co¬ 
rrespondencia relacionada 
con suscripciones o núme¬ 
ros atrasados a: 
COMMODORE 
MAGAZINE 
EDISA 

LOPEZ DE HOYOS, 141 
5 .° 

28002-MADRID 


5 Software Comentado. Dos programas de utilidad 
comentados por nuestro experto. CONTABILI¬ 
DAD EN EL HOGAR para el VIC y ARROW pa¬ 
ra el C-64. 

8 Conversión de programas del VIC 20 al C-64. Un 

conjunto de reglas prácticas para salvar diferencias 
y conseguir que los programas del VIC puedan eje¬ 
cutarse sin problemas en el C-64. 

12 Programas. Tres programas de Commodore Maga- 
zine con una variada temática. INVASION de mar- 
cianitos, OTHELLO, un conocido juego de table¬ 
ro y para terminar un conjunto de rutinas de utili¬ 
dad en código máquina para conseguir un BASIC 
más potente. 

22 Segunda parte de EL LOGO. Donde se sigue pa¬ 
sando revista a los aspectos más interesantes de la 
versión de LOGO para Commodore. 

28 Móntate un PADDLE. Todas las indicaciones ne¬ 
cesarias para que los lectores se construyan su pro¬ 
pio paddle, además de una explicación detallada de 
cómo «leerlos» desde un programa en BASIC y un 
par de programitas de ejemplo para el VIC y el 64. 

36 Concurso. Más programas premiados de entre los 
muchos que siguen llegando a la redacción. En es¬ 
ta ocasión títulos tan sugestivos como: Windsurf, 
Minas Ocultas, Araña, Batalla Naval, Othello, 
Cálculo de intereses y Camaleón. 

63 Identifica tus errores. Un repaso, uno por uno, de 
todos los mensajes de error del BASIC. El artículo 
nos enseña a reconocer los errores, primer paso an¬ 
tes de poder corregirlos. 


Esta revista no mantiene relación de dependencia de ningún 
tipo con respecto de los fabricantes de ordenadores Commo¬ 
dore Business Machines ni de sus representantes. 
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I Este número está parcialmente dedicado a los poseedores del Vie-20. Por 
algunas de vuestras cartas se deja ver una idea, pensáis que no nos acorda¬ 
mos de vosotros y esto no es así. Ocurre que los programas son algo que 
no se improvisa y hay momentos en que los disponibles no están a la altura 
del nivel que pretendemos implantar en la revista, pero también ocurre que 
cuando llegan tratamos de incluir el máximo número de ellos que nos es 
posible en tan pocas páginas. De cualquier manera, ya tenemos regulariza¬ 
do un stock de buenos programas y artículos tanto para el Vic-20 como el 
C-64. No obstante queremos recibir vuestras colaboraciones, estamos segu¬ 
ros de que serán buenas. A más de un comodorero le ha llegado la sorpresa 
(en forma de cheque por colaboración), después de enviarnos el resultado 
de su trabajo. Tampoco creáis que la revista sólo acoge colaboraciones de 
programas exclusivamente de juegos. Las experiencias que consideréis úti¬ 
les e interesantes para los demás tienen igualmente su espacio garantizado. 
Es de suponer que no utilizáis el ordenador solamente para \u iiu ; iv r- 
cianitos. Tal vez lo empleáis como ayuda en vuestic , es uaios. Es i cxzo 
riencias pueden ser importantes para otros usuarios, no os las guardéis. 

Por otro lado, hemos incluido un artículo, que da comienzo a otros que 
vendrán después sobre temas más específicos, y nos ofrece una serie de pautas 
para intentar traducir la mayoría de programas que teníamos en el Vic-20, 
cuando decidimos comprar un 64. Muchas de las ideas sirven para desarro¬ 
llarlas en sentido contrario. 

Otro artículo que nos pareció interesante es el que explica a qué son debi¬ 
dos los mensajes de error. En realidad es una ampliación de lo que dice el 
manual. Lo importante es detectar e identificar el error para corregirlo. Os 
lo recomendamos especialmente a los que nos hacéis saber que sale un men¬ 
saje ?OUT OF DATA ERROR, cuando transcribís un programa publicado 
en Commodore Magazine, que lleva muchas sentencias DATA. 

Por último, sólo nos queda desearos que disfrutéis del paddle que con 
toda seguridad os fabricaréis, después de leer el artículo correspondiente. 
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Cartas 


R: En primer lugar el felicitarnos 
por vuestra revista, es de una gran 
ayuda para mí y creo que para mu¬ 
chos. 

Otro de los motivos de mi carta es 
el pediros la dirección de la distribui¬ 
dora de la cinta Tales of the Arabian 
Nights, ABC Soft, me gustaría com¬ 
prarles ese juego, pero no sé dónde di¬ 
rigirme. 

Os envío también la encuesta, es¬ 
toy seguro de que con ella podréis co¬ 
nocer mucho mejor nuestros gustos y 
preferencias. 

S. Meroño 
Murcia 

R.: Gracias por tus elogios a nues¬ 
tra revista (de todos los comodoreros). 

Esta cinta, cuyo título respondería 
en castellano liso a Las Mil y una No¬ 
che (sugestivo nombre, eh?), pertene¬ 
ce a la firma británica Interceptor Mi- 
cro’s y fue una de las grandes atrac¬ 
ciones de la pasada Feria Commodo- 
re, celebrada el pasado junio en Lon¬ 
dres. Como nos indicas, en nuestro 
país la está distribuyendo la firma 
ABC Soft y su dirección es: 

ABC Analog. Santa Cruz de Mar¬ 
cenado, 31. Despacho 3-14. Madrid-8. 
Tel. (91) 248 82 13. 

Aprovechando tu carta, damos las 
gracias a todos los que nos estáis en¬ 
viando la respuesta a la encuesta y que 
por tanto participaréis en el próximo 
sorteo de las 500 cintas de juegos a 
celebrar a finales de octubre. 

P.: Resido en un pueblo de la zona 
norte-centro de la provincia de Valen¬ 
cia. 

Como podéis imaginar, a nadie le 
hace gracia que esté dos horas traba¬ 
jando con un programa en el ordena¬ 
dor y en ese momento se vaya la co¬ 
rriente eléctrica y te quedes con dos 
palmos de narices. 

Bueno, con respecto a eso, os co¬ 
munico que eso me ocurre muy a me¬ 
nudo, y para colmo la instalación de 
mi piso favorece a aumento de luz ins¬ 
tantáneo, eso hace saltar el automá¬ 
tico o se carga los aparatos eléctricos. 

Por eso me gustaría que me dije¬ 


rais si puedo poner un acumulador de 
energía para que me dé tiempo a 
guardar el programa (30 seg.), o el pa¬ 
so automático al funcionamiento en 
pilas. 

J. Camón 
Requema. Valencia 

R.: Nos hacemos cargo de tu indig¬ 
nación con los cortes de fluido eléc¬ 
trico. Por otra parte la falta de esta¬ 
bilidad de tensión, que propicia el de¬ 
terioro de los dispositivos alimentados 
desde la red, es otro pesado inconve¬ 
niente, aunque más sencillo de solven¬ 
tar con la ayuda de fusibles (el Com- 
modore 64 dispone de uno en su in¬ 
terior). 

Para solucionar el otro problema, 
existen a grandes rasgos dos solucio¬ 
nes posibles. La primera y más cos¬ 
tosa consistiría en que compraras un 
dispositivo llamado inversor, que con¬ 
vierte la tensión de una batería de 12 
voltios (de coche) en 220 voltios/co¬ 
rriente alterna. También se haría ne¬ 
cesario un cargador de baterías. 

La solución que tú apuntas, utili¬ 
zar un acumulador o baterías es más 
compleja, si no deseamos modificar 
la circúitería del ordenador. Te expli¬ 
camos el proceso que utiliza el C-64 
para alimentarse. El módulo de me¬ 
nor tamaño contiene un transforma¬ 
dor que convierte la tensión de 220 v. 
en nueve voltios en corriente alterna, 
posteriormente pasa a un puente rec¬ 
tificador, que seguido por un estabi¬ 
lizador 7805 proporciona una tensión 
de cinco voltios estabilizados. Simul¬ 
táneamente estos nueve v/c.a. pasan a 
un circuito duplicador de tensión y a 
partir de él, con ayuda de un 7812, se 
obtienen doce voltios estabilizados, y 
otra tensión rectificada en media on¬ 
da, no estabilizada, de nueve voltios. 
Por si esto fuera poco, a partir de los 
nueve v.c.a. procedentes del transfor¬ 
mador, se obtiene una señal de 50 ci¬ 
clos por segundo que ataca a la segun¬ 
da CIA 6526 del ordenador. Si bien 
las tensiones continuas de +5 y +12 
voltios se conseguirían fácilmente con 
baterías, las tensiones alternas requie¬ 
ren circúitería algo más compleja. 


La solución más aconsejable es al¬ 
go más incómoda y económica. Con¬ 
siste en utilizar la unidad de cassettes , 
grabando el programa a medida que 
vas avanzando con él, de tal manera 
que si se produce un corte de energía, 
solamente habrás perdido unas pocas** 
líneas. 

P.: Tengo un Commodore 64 y una 
impresora Seikosha GP 100 A Mark 

II y no consigo hacerlos funcionar 
juntos. Agradecería cualquier tipo de 
información para conseguirlo. ¿Nece¬ 
sito el interface RS-232? Si es así, que 
programa necesitaría. ¿Se puede co¬ 
nectar directamente al port de usua¬ 
rio?; ¿qué programa necesito? En la 
“Guía de Referencia del Programa del 
C-64” no hay quien se aclare. 

F. Ramajo 
Albacete 

R.: No queremos desilusionarte, pe¬ 
ro debemos aclarar que has elegido la 
impresora correcta pero no el mode¬ 
lo. Existe una versión de la GP 100, 
el Modelo VC que es directamente co- 
nectable al port de impresora de 
Vic-20 y C-64, entre otros, sin reque¬ 
rir ningún tipo de modificación. 

El C-64 se basa en estándar RS-232 
para comunicarse con los periféricos, 
pero la mayor diferencia estriba en los 
niveles de tensión elegidos, que no son 
los de +12 y —12 voltios, sino otros 
más bajos. Por eso no se puede ha¬ 
blar propiamente del estándar RS-232 
con el C-64, pues establece cómo han 
de ser las señales eléctricas y sus mag¬ 
nitudes para que los dispositivos se 
pongan de acuerdo durante la trans¬ 
ferencia de los datos. Nuestro conse¬ 
jo es que hables con la firma Dirac, 
distribuidora de la marca en España. 
Su número de teléfono es: (96) 372 88 
89. Probablemente te aportarán una 
solución. 

En cuanto a tu observación esta¬ 
mos casi de acuerdo: en la Guía de 
Referencia no se entiende casi nada de 
algunas cosas. Deberías ver el origi¬ 
nal escrito en inglés, no distribuido 
aquí masivamente. 
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Cartas 


P.: Somos dos hermanos que te¬ 
nemos hace poco un C-64, y nuestra 
primera preocupación fue ver lo mu¬ 
cho que se calentaba el ordenador y 
la unidad de alimentación, después 
de un continuado uso. ¿Es esto ma¬ 
lo?; ¿puede causar daño al ordena¬ 
dor?, ¿cuánto puede estar encendi¬ 
do el ordenador sin problemas?. 

La segunda petición es más com¬ 
plicada, nos gustaría que pudiésen 
publicar alguna explicación o artícu¬ 
lo con programas de ejemplo (como 
han hecho con «Gráficos con PEEK 
y POKE») sobre los registros del chip 
VIC-ÍI. 


R.: La preocupación que comen¬ 
táis es normal. La unidad de alimen¬ 
tación se calienta porque tiene en su 


interior un transformador, reductor 
de la tensión de la red. Es sabido que 
los transformadores se calientan de¬ 
bido a unas corrientes de pérdida, 
llamadas de Focault, que se genera 
en el núcleo metálico como efecto se¬ 
cundario del paso de la corriente 
eléctrica por.los bobinados. Los fa¬ 
bricantes tratan de reducirlos\ utili¬ 
zando diversas técnicas, pero la más 
corriente y barata es construir el nú¬ 
cleo en base a láminas metálicas en 
lugar de una pieza maciza. 

El ordenador también se calienta 
principalmente por la zona en que se 
halla situada la circuitería de alimen¬ 
tación, siendo los circuitos integra¬ 
dos encargados de estabilizar el ni¬ 
vel de la tensión los principales cau¬ 
santes de la emisión de calor, disipa¬ 
do durante su funcionamiento. 


Ninguno de estos dos factores es 
realmente preocupante en sí. El fa¬ 
bricante del ordenador ya los tuvo en 
cuenta durante la etapa de diseño del 
aparato. De todas maneras, es una 
regla de general conocimiento que el 
calor es el principal enemigo de la vi¬ 
da de los componentes. Cuanto ma¬ 
yor sea el calor más probabilidades 
existen de acortar la vida de los mis¬ 
mos. El tiempo de utilización queda 
sometido a la discreción del usuario, 
pero desde luego no hay establecido 
límite alguno. 

En cuanto a la petición, aclaramos 
desde aquí que el tema de los regis¬ 
tros que incorpora el VIC-II es uno 
de los muchos artículos que estamos 
elaborando de cara a futuros núme¬ 
ros de la revista. 
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♦ más fácil, 

♦ más cómodo, 

♦ más rápido 


Telf. (91) 733 7969 


7 días por semana, 84 horas a su servicio 
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Software comentado 


PROGRAMA: 
CONTABILIDAD DEL 
HOGAR 

TIPO: GESTION 
DISTRIBUIDOR: ABC SOFT 
FORMATO: CASSETTE 
VIC 20 

CON AMPLIACION DE 
BK 

El programa que comenta¬ 
mos en esta ocasión está dise¬ 
ñado para controlar los gastos 
de una casa y que podamos sa¬ 
ber dónde se nos va el dinero. 
Una vez cargado de cinta pode¬ 
mos realizar las siguientes ope¬ 
raciones: introducción de datos 
estimados. En esta opción in¬ 
troducimos los gastos que cree¬ 
mos que se van a producir du¬ 
rante el mes (hasta 20 distintos) 

PROGRAMA: 

ARROW 64 

TIPO: UTILIDADES 

DISTRIBUIDOR: 

CENTRO 

COMMODORE 

FORMATO: 

CARTUCHO 
COMMODORE 64 

Este paquete incluye un con¬ 
junto de utilidades muy útiles 
para todas las personas que se 
dedican a la programación, en 
lenguaje máquina o en BASIC 

El primer grupo de órdenes 
se refiere a la cinta, con el car¬ 
tucho se puede realizar la gra¬ 
bación y carga de programas a 
muy alta velocidad, asimismo 
dispone de un comando para 
verificar ficheros, y otro más 
importante, que permite mez¬ 
clar programas en memoria le¬ 
yéndolos de cinta; este coman¬ 
do es especialmente útil al no 
disponer el Commodore de 
ninguna orden similar. Natural¬ 
mente el proceso se realiza a al¬ 
ta velocidad. 

El conjunto de instrucciones 


i*. * ESTÍMADOS 

a * €ASTOS «CTUrtLeS 
a. CUi£M:T#s*S BñNCO 
_ <SRAFI<ÍO GASTOS 
■5*., VC)R 'GASTO# 

. SALVAR FICHERO 
T 1 CAMB IAR 
©r . FIH JDe: F» Fí: O ****•«**» 

KüÉÉ OF*<C f OH-r ”1 

y que luego se pueden compa¬ 
rar con los que se han produci¬ 
do realmente, que son otros 
veinte, viendo un gráfico anual 
de cada gasto o comparándo¬ 
los todos y viendo la diferencia 
entre los reales y los estimados. 
Cada uno de estos gastos tiene 
un título que se puede cambiar 
rápidamente mediante otra op¬ 
ción del programa. 

Otra rutina que incorpora 
nos permite llevar el control de 



de ayuda al BASIC incluye va¬ 
rios comandos útiles que han 
sido «olvidados» en el BASIC 
del ordenador, el primero es la 
instrucción «AUTO» que posee 
,un gran número de ordenado¬ 
res. Una vez usada esta instruc¬ 
ción el programa nos va escri¬ 
biendo los números de línea de 
programa, ahorrándonos esa 
labor a nosotros, que sólo de¬ 
beremos añadir las instruccio¬ 
nes en sí, sin poner el número 
de línea. Cuando se haya intro¬ 
ducido una línea y. se pulse 
«RETURN» el programa nos 
escribirá el número de la si¬ 
guiente, etc., el usuario puede 
elegir en qué línea se empieza 
a imprimir el número y el incre¬ 
mento entre líneas. La segunda 
instrucción del grupo sirve pa¬ 


la cuenta bancaria, anotando 
todos los ingresos y gastos que 
en ella se produzcan durante el 
año. Posteriormente se le pue¬ 
de pedir que nos muestre él las 
transacciones realizadas y el 
saldo actual. Asimismo se pue¬ 
de realizar un cierre periódico 
que nos borra todos los movi¬ 
mientos de la cuenta, dejando 
uno único con el saldo anterior. 

Las últimas opciones del pro¬ 
grama consisten en la grabación 
y lectura de los datos en cinta, 
ya que al apagar la máquina se 
borran de la memoria. 


PUNTUACION: 
UTILIDAD: 6 
PRESENTACION: 5 
CLARIDAD: 6 
RAPIDEZ: 7 


ra borrar varias líneas de gol¬ 
pe, sin el cartucho este proceso 
llega a ser tedioso al tener que 
ir tecleando los números uno 
por uno; con este programa, en 
cambio, basta indicar el núme¬ 
ro de la primera y de la última 
y se borrarán todas las com¬ 
prendidas entre estas dos. Las 
dos últimas instrucciones de es¬ 
te grupo sirven para localizar y 
sustituir textos que se encuen¬ 
tren dentro de un programa 
El último bloque de utilida¬ 
des está dedicado a los progra¬ 
madores muy avanzados y sir¬ 
ve para el manejo del lenguaje 
máquina, comprendiendo un 
calculador en hexadecimal (si 
usted no tiene 16 dedos en la 
mano) y un monitor que le per¬ 
mite ver los contenidos de la 
memoria, modificarlos, salvar¬ 
los en cinta, etcétera. 


PUNTACION: 
UTILIDAD: 8. 
PRESENTACION: 5. 
CLARIDAD: 3. 
RAPIDEZ: 8. 
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Si antes tenía un Vic-20 y ahora ha 
decidido comprarse un Commodore 
64, inmediatamente surge la duda so : 
bre si tendrá que dar por perdidos to¬ 
dos los programas anteriores. Con es¬ 
te artículo pretendemos ayudarle a 
convertir sus programas para el 64, 
consiguiendo a cambio un mejor co¬ 
nocimiento de ambos ordenadores. 

Los programas generalmente con¬ 
sisten en una mezcla, o una, de las si¬ 
guientes partes: 

1. La clásica palabra clave del BA¬ 
SIC (ver «El Misterio del BASIC, pu¬ 
blicado en el número de agosto), sea 


$FFFF 

$E000 


$C000 


$A000 

$9800 


$9600 


$9000 


$8000 

$6000 

$4000 

$2000 


$1000 

$03FF 


$0000 


Kernel 

ROM 

del BASIC 

ROM/RAM para 
Juegos/Expansión 


Vi K pantalla del color 


4 K de ROM 
de caracteres. 

512 caracteres. 

8 K vacíos 

8 K vacíos 

8 K vacíos 

V 2 K memoria 
de pantalla 

3'Á K de RAM 

3 K expansión 
de RAM 

1 K de RAM 
'reservada' 


65535 

57344 


49152 


40960 

38912 


38400 


36864 


32768 

24576 

16384 

8192 


7680 

4096 


1024 


Fig. 1: Mapas de memoria del Vic-20. 


VIC-20 A ( 


REM, PRINT u otra cualquiera. 

2. POKES y PEER que manejan 
la información de determinadas direc¬ 
ciones de la memoria. 

3. Juegos de caracteres definidos 
por el usuario y gráficos de alta reso¬ 
lución. 

4. Efectos sonoros y musicales. 

5. Código máquina, sea en la lon¬ 
gitud total del programa o formando 
parte como subrutinas del programa 
en BASIC. 

Si utiliza una unidad de diskettes 
con el Vic, entonces no tendrá proble¬ 


38400 

37888 


$1000 


$03 FF 


$0000 


Kernel 

ROM 

DEL BASIC 

ROM/RAM para 
Juegos/Expansión 


Vi K pantalla de color 


4 K ROM 
de caracteres 

24 K 

de posible 
expansión 

3Vi K 

Vi K memoria 
de pantalla 

3 K expansión 
de RAM 

1 K de RAM 
'reservada' 


$96000 

$9400 


8192 

4607 


4096 


1024 


0000 


mas en cargar los programas directa¬ 
mente en el 64, pero si utiliza el cas¬ 
sette , la cosa se complica. Aunque el 
Vic y el 64 utilizan el mismo cassette , 
los programas del Vic guardados en 
cinta no cargarán en el 64. Una solu¬ 
ción podría consistir en que un ami¬ 
go nos preste la unidad de diskettes 
para trasvasar los programas de la cin¬ 
ta al disco. 


LAS PALABRAS CLAVE 
DEL BASIC 


Tanto el Vic-20 como el 64 utilizan 


$FFFF 


$E000 

$D000 

$C000 


$A000 

$8000 


$6000 

$4000 

$2000 


$0800 

$0400 


$0000 


8 K 

ROM 

del Kernel 

4 K ROM de E/S 

4 K RAM 

8 K ROM 
del BASIC 

8 K 

RAM/cartucho 

8 K 

RAM 

8 K 

RAM 

8 K 

RAM 

RAM del BASIC 

RAM del BASIC 

Pantalla + punteros 
de Sprites 

‘ 1 K de RAM 
'reservada' 


Fig. 2: Mapa de memoria del Commodore 64. 
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COMMODORE 64 


el mismo BASIC que puso Commo- 
dore en su primer ordenador, el PET. 
Cada una de las máquinas dispone de 
las mismas palabras clave del BASIC 
y se ejecutan de la misma manera 
exactamente. 

En el Vic podemos escribir líneas 
de programa de hasta 88 caracteres de 
longitud, mientras que en el 64 esta¬ 
mos limitados a 80 (el 64 puede eje¬ 
cutar líneas de más de 80 caracteres, 
pero se hacen difíciles de editar). 

Tal vez el comando más afectado 
por los cambios de máquina es la sen¬ 
tencia con PRINT. El 64 dispone de 
una pantalla de 25 líneas de hasta 40 
caracteres, mientras que el Vic-20 tie¬ 
ne tan sólo 23 líneas de hasta 22 ca¬ 
racteres. Esto significa que usted obli¬ 
gatoriamente debe formatear de nue¬ 
vo las pantallas realizadas con el Vic, 
pues si no solamente llenaría la mi¬ 
tad izquierda de la pantalla del 64. El 
trabajo es bastante sencillo y tedioso, 
pero se pueden conseguir buenas pan¬ 
tallas alterando los TAB y SPC, no ol¬ 
vidando el mayor tamaño de la pan¬ 
talla. 

Mientras realiza esta tarea podía in¬ 
cluso utilizar los ocho colores extra 
del 64. Estos son accedidos utilizan¬ 
do la tecla que lleva el logotipo de 
Commodore y las teclas numéricas. 

PEEK Y POKE EN LAS AREAS 
DE MEMORIA 

Los mapas de memoria de las figu¬ 
ras 1 y 2 muestran cuáles son las di¬ 
ferencias entre los mapas de memo¬ 
ria de las dos máquinas. La figura 3 
las realza con mayor detalle. Las me¬ 
morias de color y pantalla de los dos 
ordenadores trabajan de la misma 
manera: debemos establecer cuál va a 
ser el color en la memoria del color, 
antes de visualizar un carácter en la 
pantalla. En el Vic el contenido de la 
dirección 36879 dicta cuáles son los 
colores de la pantalla y el reborde, 
mientras que en el 64 son manejados 


de manera separada, con la dirección 

53280 para el color del reborde y la 

53281 para el de la pantalla. Estas to¬ 
man un valor de los comprendidos 
entre 0 y 15, siendo el gris a quien co¬ 
rresponde el 3. Cualquier programa 
que implique POKE o PEEK con la 
pantalla, por ejemplo un juego, debe¬ 
rá ser reescrito considerablemente, te¬ 
niendo en cuenta la mayor pantalla 
del 64. 

En el 64 cualquier carácter que so¬ 
brepase el final de la línea aparece in¬ 
mediatamente en la primera columna 
desplazándose durante otros 18 carac¬ 
teres de la misma línea. 


usuario son manejados de la misma 
forma en ambos ordenadores. En el 
64, sin embargo, la ROM que alma¬ 
cena el juego de caracteres estándar 
cohabita con la ROM Entrada/Sali¬ 
da en la dirección 53248 ($D000). Si 
su programa alberga caracteres pro¬ 
pios en forma de sentencias con DA¬ 
TA al final del listado, simplemente 
tendrá que convertir la parte del pro¬ 
grama que efectúa la lectura (READ) 
de esos datos. La ROM de caracteres 
del 64 también comienza en la direc¬ 
ción 53248 ($D000), pero antes de po¬ 
der acceder a ella, el programa que te¬ 
nemos debe «desconectar» a la ROM 


Ordenador 

Tamaño 
de la memoria 
del BASIC 

Posición 
de la 
pantalla 

Posición 
de la pantalla 
del color 

Vic 

sin expansión 

4069-7679 

($1000-$1DFF) 

7680-8191 

($1E00-$1FFF) 

38400-38911 

($9600-$97FF0 

VIC 
+ 3 K 

1024-7679 

($0400-$1DFF) 

7680-8191 

($1E00-$1FFF) 

38400-38911 

($9600-$97FF) 

VIC + 8 K 
(o más) 

4608-???? 

($1200-$????) 

4096-4607 

($1000-$11FF) 

37888-38399 

($9400-$95FF) 

Commodore 

64 

2048-40959 

($0800-$9FFF) 

1024-2023 

($0400-$07E7) 

55296-56319 

($D800-$DBFF) 


(???.—Los límites superiores dependen del tamaño de la expansión). 

Fig. 3: Cuadro de las principales diferencias entre el Vic y el Commodore 64. 


Del hecho de que el mapa de me¬ 
moria del Vic cambia dependiendo de 
la cantidad de expansión de memo¬ 
ria utilizada, se derivan más proble¬ 
mas. Un programa para una expan¬ 
sión de 3K tendrá que ser convertido 
de un modo ligeramente distinto de 
otro que emplea la de 8 K (la figura 
1 nos ayuda a verlo mejor). Los jue¬ 
gos de caracteres definidos por el 


de E/S. Esto se lleva a cabo mediante 
dos sencillos POKE: 

POKE 56334, PEEK (56334) AND 
254 

POKE 1, PEEK (1) AND 251 

El juego de caracteres del 64 ya 
puede ser extraído de la ROM. Igual 
que con el Vic, las letras comienzan 
con @ en la dirección 53248. Después 
de que han sido leídos los caracteres 
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VIC-20 A COMMODORE 64 


que requerimos, habrá que recurrir a 
POKE para que vuelva a ser puesta 
en su lugar del mapa'de memoria la 
ROM de E/S: 

POKE 1, PEEK(l) OR 4 
POKE 56334, PEEK(56334) OR 1 
Los nuevos juegos de caracteres 
pueden ser emplazados en el 64, pe¬ 
ro cuando se utilizan con el BASIC, 
la mejor dirección para ellos es la 
14336. Para pasar de un juego de ca¬ 
racteres en ROM a otro situado en la 
dirección 14336, simplemente hay que 
POKEar la dirección 53272 con 30. 
Para proteger nuestro juego de carac¬ 
teres de no ser alterado por la carga 
del programa en BASIC, debemos po¬ 
ner el límite del área del programa en 
la dirección 14080. Esto lo hacemos 
POKEando las direcciones 52 y 56 
con 55, que nos deja libres unos 12 
kbytes de memoria para almacenar el 
programa. En el Vic los gráficos de 
alta resolución se consiguen llenando 
la mitad de la pantalla con un con¬ 


junto de caracteres definidos por el 
usuario en blanco, después se dobla 
el tamaño de los caracteres para que 
los 256 caracteres llenen toda la pan¬ 
talla. En el 64 las cosas un poco más 
sencillas, pues disponemos de un área 
de 8 K de memoria que podemos des¬ 
tinar a la pantalla de alta resolución 
de 200 por 320 puntos. El modo en 
alta resolución es accedido como 
sigue: 

POKE 53265, PEEK (53265) OR 
32 

POKE 53272, PEEK (53272) OR 8 

El último de estos POKE dice al 64 
dónde hallar la pantalla de alta reso¬ 
lución, en este caso 8192 ($2000). En 
el 64 los colores para este modo son 
proporcionados por el contenido de 
la matriz de la pantalla, situada entre 
las direcciones 1024 y 2023, mientras 
que en el Vic los colores de los pun¬ 
tos que aparecen dibujados provienen 
de la pantalla del color. Como en el 
Vic, la pantalla de alta resolución del 


64 es depositada como filas de carac¬ 
teres. Para dibujar un punto (X, Y) 
en el 64 deberíamos utilizar lo siguien¬ 
te: 

DIR= 8192 + 320 * INT(Y/8) + 
8 * INT(X/8) + ( Y AND 7) 

POKE DIR, PEEK(DIR) OR 2T 
(7—(X AND 7)) 

Esto es similar al método emplea¬ 
do en el Vic. 

Otro modo que tienen ambos or¬ 
denadores en común es el multicolor, 
que nos permite visualizar hasta cua¬ 
tro colores en el cuadradito de cada 
carácter. 

En el Vic esto es conseguido colo¬ 
cando un código de color mayor que 
siete en el cuadrado de color corres¬ 
pondiente al carácter requerido. En el 
64 se utiliza el mismo método, pero 
primero debemos activar el modo con 
la línea siguiente: 

POKE 53270, PEEK (53270) OR 16 

Después de esto conseguimos que 
el modo sea prácticamente lo mismo 
en ambos ordenadores. En los dos la 
resolución de la pantalla se ha redu¬ 
cido a la mitad, por lo que un par de 
bits nos da acceso a los cuatro colo¬ 
res, siendo la principal diferencia la 
dirección desde la que los ordenado¬ 
res acceden a los colores. La figura 4 
muestra las diferencias. 

EFECTOS SONOROS 
Y MUSICALES 

Una de las principales ventajas que 
tiene el 64 sobre el Vic es el sonido. 
El Vic dispone de tres canales de to¬ 
no y uno de ruido blanco con una ga¬ 
ma de cinco octavas. El 64 tiene tres 
canales de hasta nueve octavas. Cada 
uno de los canales del 64 puede dis¬ 
poner de una diferente forma de on¬ 
da, que puede ser triangular, diente de 
sierra, impulsos y ruido blanco. El 
chip SID (Sound Interface Device) 
también ofrece una envolvente, pu- 
diendo dar personalidad a la nota, va¬ 
riando los períodos de ataque, decai¬ 
miento, sostenimiento y relajación, así 
como varios filtros. Naturalmente que 
cuando usted pasa a utilizar el 64 


Conformación 
de los bits 

VIC 

Alta resolución 
del 

Commodore 64 

Caracteres 

del 

Commodore 64 

00 

Color 

de pantalla 

Color 

de la pantalla 

Color 

de la pantalla 

01 

Color 

del carácter 

4 bits 
superiores 
de la memoria 
de la pantalla 

Color 

de fondo n.° 1 
(53282) 

10 

Color 

del reborde 

4 bits 
inferiores 
de la memoria 
de la pantalla 

Color 

de fondo n.° 2 
(53283) 

11 

Color 

auxiliar 

(36878) 

Memoria 
del color 

Memoria 
del color 


Fig. 4: Conformación de los bits en el modo multicolor. 
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quiere que el programa suene de la 
misma forma que lo hacía en el Vic. 
Sin embargo, ahora podrá aumentar 
la calidad del sonido utilizando las 
posibilidades del 64. 

CONTROL DE VOLUMEN 

Ambos ordenadores manejan el 
control de volumen de su sonido de 
la misma forma. Esto lo consiguen 
POKEando una determinada direc¬ 
ción de memoria con un valor com¬ 
prendido entre 0 y 15 (siendo 15 el 
más elevado). En el Vic, esta dirección 
es la 36878 y en el 64 es la 54296. 

Cada.uno de los tres canales del Vic 
son preajustados para proporcionar la 
nota dentro de una determinada ga¬ 
ma, dependiendo del canal. 

En el 64, cualquier nota dentro de 
una gama de nueve octavas puede ha¬ 
cerse sonar a través de los tres cana¬ 
les. Hacer que suene una nota en Vic 
es simplemente una cuestión de esta¬ 
blecer cuál va a ser el volumen, PO¬ 
KEando después un número com¬ 
prendido entre 128 y 255 en uno de 
los tres canales. 

Este proceso es ligeramente más 
complicado en el 64, en el que el chip 
SID debe saber qué forma de onda 
bebe utilizar y la envolvente de la no¬ 
ta a ejecutar, antes de poder escuchar 
algún sonido. Para capacitar que el 64 
disponga de una gama mayor que el 
Vic, debemos alterar dos direcciones, 
para que contengan el tono de cada 
nota. La sugerencia es que en primer 
lugar ajuste el registro de Ataque/De¬ 
caimiento de la voz que esté utilizan¬ 
do a 136, por ejemplo, y el registro de 
Sostenimiento/Relegación a cero. 
También es aconsejable que ponga la 
forma de onda de la voz en triangu¬ 
lar o diente de sierra. Estos valores 
proporcionan una nota que suena casi 
igual que las del Vic 20. Si el progra¬ 
ma del Vic utiliza el ruido blanco (di¬ 
rección 36877) entonces ponga la for¬ 
ma de onda del 64 en ruido. 

Una vez que el programa ejecuta 
adecuadamente, podrá experimentar 
para obtener mejores efectos de soni¬ 
do. El Manual del Usuario de 64 pro- 
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Fig. 5: Valor de las direcciones. 


porciona una tabla que indica los va- dirección de la subrutina en código 
lores adecuados para cada nota. máquina en las direcciones 785 y 786 

del 64. 

CODIGO MAQUINA Cualquier programa para el Vic 

que emplee las direcciones 784 a 787 

La conservación del código máqui- P ara a l macenam iento, deberá tener 
na del Vic al 64 no es tan difícil co- ^ ue recurr ^ r a alternativas. Si el pro- 
mo pueda parecer a primera vista, si £ rama necesita la dirección 197 ó 203 
ya dispone de un conocimiento con- R ara ^ er fl u ^ tec ^ a es f a s i en do pre¬ 
seguido trabajando con el código má- S10na< ^ a > bebería advertir que el 64 lee 
quina. Ambos ordenadores utilizan e ^cmdo de diferente manera que en 
un microprocesador de la familia e ,c ‘. ^ stas direcciones pasan a con- 
6500. Al igual que ocurre con los BA- tener l° s valores mostrados en la fi- 
SIC, el código máquina de ambas gu íf 

máquinas es exactamente el mismo, y Recuerde que en el 64 dispone de 
si lo ha aprendido con el 6502 en el ae memor i a separados para reci- 
Vic, el paso al 6510 le será familiar. ° lr P r °g ramas en código máquina en 
Se dará cuenta que las llamadas ile- ^ a dirección $C000 ó 49152). Algunos 
gales a la ROM del Vic no funcionan momtores/ensambladores disponibles 
en el 64, pero las legales sí lo harán, P ara tra b a J aran con el 64. 

puesto que la tabla de saltos del Ker- rrk ^j f TCirfclvI 
nel permanece. El primer 1 Kbyte de 

memoria es exactamente el mismo en Con la información y tablas ofre- 
ambas máquinas, excepto para las di- cidos en este artículo, usted debería 
recciones 0, 1, 2, 784, 785, 786, 197 ser capaz de convertir la mayoría 
y 203 (decimales). de los programas de utilidad desarro- 

En el Vic, las direcciones 1 y 2 liados en código máquina, pero los 
guardan la dirección de comienzo de programas de mayor complejidad re¬ 
íos programas llamados mediante el quieren una mayor cantidad de cono- 
comando USR, siguiendo la moda cimientos acumulados. No conviene 
tradicional en los 6500, de byte ba- olvidar tampoco que el 64 dispone de 
jo/byte alto. otras características tales como los 

En el 64, las dos direcciones más Sprites , que necesitan de mucho tra¬ 
bajas son utilizadas por el 6510 para bajo en el Vic 20 para conseguir re- 
el sistema de paginación de la memo- sultados similares. No obstante, en fu¬ 
ria, las llamadas USR en el 64 utili- turos artículos seguiremos tratando el 
zan las direcciones 784 a 786, por lo siempre importante tema de la con¬ 
que cuando reconvierta programas versiones de programas entre ambos 
que utilicen USR recuerde POKEar la ordenadores. 
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Invasión es un clásico entre los jue¬ 
gos de marcianitos y fue uno de los 
primeros en aparecer en las máquinas 
de los bares y en las salas de juegos 
recreativos. Consiste en evitar una in¬ 
vasión que llega de los cielos en for¬ 
ma de varias hileras de marcianitos 
que van descendiendo inexorablemen¬ 
te. Abajo, y protegido por una serie 
de bloques defensivos se encuentra el 
jugador, provisto de un arma láser 
con la que puede ir destruyendo mar¬ 
cianos. Los marcianitos también dis¬ 
paran, y sus diparos van destruyendo 
poco a poco las defensas. El juego se 
controla mediante las teclas “Z” y 
“C” para desplazarse hacia los lados, 
mientras que la tecla “M” sirve para 
disparar. El programa incluye algunas 
ratinas en lenguaje máquina que se 
cargan desde las sentencias DATA del 
final del programa. Por ello es muy 
importante que dichas sentencias es¬ 
tén correctamente copiadas. 


10 ren 

15 REM * I N V H S I Ü N * 

20 REM * * 

¿5 REM # UUMMUBüRE MfiGftZINE # 

30 rem 

•jC 

40 V=53248 : P0KE54276,8: PQKE54290,0 : PGKE54278,240 • PÜKE54292, 240 : PQKE54276, 129 

45 POKE54290 , 17 : POKEV+330 : POKEV+32,0: SC= 1024: CL=55296 : CÜ=54272 : PÜKE5429S, 15 

50 P0KE56, 28: P0KE55, 0 : FOR 1 = 125447012551 : POKE1,0 : NEXT 

55 GOSUB290 : G0SUB325 : G0T0210 

60 IFK*1THEN60 

65 IFKO12RNDKO20THEN85 

70 POKESC+V#40+X .• 32 : X=X- (K= 12 > * <X>0> + < K=20>* < X<39 > : IFPEEK<SC+V*40+X )<>32THEND= 1 
75 POKECL+V#40+X .• 3 : POKESC+V*40+X .• 0 
80 RETURN 

85 IFK=36 AND SX<0THENSX*X:SV=V-1■P0KE54273,72■PÜKE54272,169 
90 RETURN 

95 POKESC+SV#40+SXí32 : SV=SV-1:IF 8V<1THENSX=-1 ; RETURN 
100 F-F'EEKCSC+SV*40+SX) 

1@5 F'OKECL+SV*40+SX,7:POKESC+SVS40+SX,21FF-32THENRETURN 
110 P0KE54273,34•P0KE54272,75=POKESC+SY*40+KX■4 
115 IFPO1THEN140 

120 FORV1=8TO0STEP-2 ; FORX1=10TO0STEP-2•F-IN+V1*6+X1 
125 IFPEEK(P >OSVORPEEK<P+1)OSXTHEN135 
138 S=S+<12-V1>*5:N0=N0-1=P0KEP+i,255:X1=0:V1=0 
135 NEXT=HEXT:GOTO155 
140 IFP03THEN155 

145 FORJ=@T05:1FS < J > =SC+SV*40+SXTHENS=S+5 •' S < J > =0: .J=5 
150 NEXT 
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155 
160 
165 
170 
175 
180 
185 
190 
1 95 
200 
205 
210 
215 
220 
2?5 
230 
235 
240 
245 
250 

•”i cr cr 
<L • .J • J 

260 

265 

270 

•~i V.T 

r . j 
280 
2 y S 
290 
295 
300 
305 
310 
315 
320 
325 
330 
335 
340 
345 
350 
355 
360 
365 
370 
375 
380 
385 
390 
395 
400 
405 
410 
415 
420 
425 
430 
435 


PÜKESC+SV*40+SX,32:SX=-1 ; RETÜRN 

F'ÜKES< J), 32 = S< J>=S< J) +40 ; IF3< J»1983THENS< J) =0: RETURN 
F-F’EEK<S< J> > ■ F'ÜKES< J>+CÜ, 3 : F'ÜKES< J>, 3 
IFF-32THENRETURN 

F'ÜKES < J >, 4: P0KE54273,43 •' P0KE54272 ..52-1 FF‘=0THENB= 1 
IF S<J >®SC+SX+SV#40THENSX=-1 
F'ÜKES C J >, 32: S C J) — 0: RETURN 
S1 ® INT<RND(1> *6) = IFS(S1)>0THENRETURN 
FÜRV 1-8TO0STEP-2 : 1 FF'EEK IN+V1 #6+81 #2+1 > «255THEN205 
SS1®SC+ (F'EEK (I N+V 1 #6+8 1 #2 ) +1 > #40+F'EEK< I N+V 1 #6+S 1 #2+1 > '■ V1 
NEXT•RETURN 

ri-0 : F0RI®1T0SP : K=F'EEKCF'E> ■' IFKO64THENGOSUB60 
IF 3 X> - 0 T H E N G 0 S U B 9 5 
FORJ®0TÜ5•IFS(J)>0THENGÜSUBí 60 

NEXT : PÜKE54273 , @ : F'ÜKE54272 , 8 : PQKE54287, @ : P0KE54286 • 0 
I FRNIl (1 > >. 5THENG0SUB190 
NEXT:3VS7168=IFN0<21THENSP®3:IFNÜCl1THENSP*2•IFN0<6THENSP»1 
P0KE54287, 2 ; P0KE54286, 37 ; I FF'EEK (12303 )®36THENP0KE 12303.129: GHTn2R0 
F'ÜKE 12303,36 

I FF'EEK (7604 > =0fiNDD®0fiNDNO>0THEN210 
IF NÜ=0THENÜÜSUB310■GÜT0210 
PÜKESC+V#40+X .■ 4: PÜKE54273,61: P0KE54272, 126 

FORI=15TÜ0STEP-.1•P0KE54296,I:NEXT•P0KE54287,0:PÜKE54286.0:POKEfiO+Y#40+X.0 
F'ÜKE54273, 0: P0KE54272.0 

I FF'EEK C 7604 )=0THENB=B+1 ■ IFB C4THENP0KE54296,15: GOTG210 

PÜKEV+24,20 • F'R I NT" *#F IN DE JUEGO##" 

F'R I NT " WPUNTUfiC ION " S: RUN 
FORñD=7168T07393 
REñDfi : F'OKEñD, fi : NEXT 

FÜRÑD=12288TÜ12351 : REÑDñ=F’ÜKEñD,ñ=NEXT 
F'ÜKE V+24,28 

FÜRV1-0TÜ4:FÜRX1=8T05 : POKE7620+V1#12+X1#2,VI#2+1 : P0KE7621+V1#12+X1#2,X1#3 
NEXT•NEXT 

PGKE7605,1 : F'ÜKE7604,0: SX=-i ¡ SV=8 • Nü=30 = SP=4 : RETURN 
B= 1 ■ F'R INT"H" : FOR I = 1384TÜ2023 
F'ÜKE 1,5 = F'ÜKE I+CG, 6: NEXT: X= 1 : V=23 : PE® 197 : S*0 
IN=7620:DIMS<5> : POKECL+V#40+X,3=POKESC+V#40+X,0 

FÜRV 1 ® i T04 : F'R I NT" SF'C < V1 # 10-7 ) " EEEíliBEEE UlMEEE " ; 

print m :hhf ü"; 



NEXT:RETURN 

DfiTFi 162,7,142,179,29,162,0,142,188,29,189,197,29,201 
DflT Fi 189 , 1 36 , 29 , 141,176 , 23 , 169 , 32 , 141,178,29 , 32 , 162 , 2 
BftTñ181,29,157,137,29,201,8,288,5,160,1,148,180,29,2 
DfiTFi 180,29,141,177,23, 163,1, 141,170,29,32,162,28,232 
Dñ FFI173, 180, 29,208, 1,96, 169,0,141,180,29, 163,32, 141, 
DfiTñ197,23,201,255,240,27,141,177,29,189,196,29,141, 
DfiTFi 136,23,189,196, 23,261,22,208,5, 160,1,148,180,29, 
DfiTH216,173,181,29,201,1,240,4,169,1,208,2,169,255 
DfiTfi141,181,23,173,188,29,208,3,76,0,28,96 
DñIfi133, 7z ,i 52,72,172,176,29,169,8,133,31,169,4,133, 
DfiT Ñ40,109,31,0,133,31,169,0,109,32,8,133,32,232,236 
Dfi TFI208,235,172,177,29,173,178,23,145,31,24, 169,212, 
DfiTfl32,173,179,29,145,31,104,168,104,178,36,0,16,16, 
DfiTfi124,254,254,126,90,255,189,189,86,66,86,0,0,0,16 
DfiTfi16,56,56,16,0,108,213,128,132,39,174,197,78 
DfiTfi255,255,255,255,255,255,255,255,255,254,252,248, 
DfiTfi255,127,63,31,15,7,3,1 


,255,240,56,141,177,29 
8,189,197,29,24,109 
81,39,208,5,160,1,148 
,232,224,60,208,187 
178,29,162,0, 189 
176,29,32,162,28,254 
232,232,224,60,288 


82 , 162 , 0 , 24,169 
, 176,29 
109 , 32 , 0,133 
56,124 

16 , 16 , 56 , 84 , 0 , 84,56 
240 , 224 , 192,128 
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REVERSI es el nombre de un jue¬ 
go de mesa de los llamados «de ta¬ 
blero» para dos jugadores, del que 
mucha gente casi seguro ha oído ha¬ 
blar. 

Fue inventado alrededor de 1880 
por el londinense Lewis Waterman. 
Más tarde Jonh W. Mollett afirmaba 
que él era el verdadero inventor. Así 
mientras estos señores se peleaban por 
adjudicarse la autoría del Reversi pa¬ 
saron los años y en 1971 el japonés 
Goro Hasegawa “reinventó” y rebau¬ 
tizó el juego alterando las cuatro po¬ 
siciones iniciales y llamándole “OT- 
HELLO”. 

El juego comienza con cuatro fi¬ 
chas colocadas en el centro de un ta¬ 


blero de 8 x 8 posiciones (dos de ca¬ 
da jugador y cruzadas). Los movi¬ 
mientos se realizan alternativamente 
colocando cada jugador una ficha 
junto a otra de su adversario, lo cual 
sólo es permitido cuando con la pie¬ 
za forma una o varias líneas en cual¬ 
quier sentido (vertical, horizontal y 
diagonal) con otra de su mismo co¬ 
lor y encerrando entre ambas a las de 
su oponente. 

Así, todas las piezas que quedan 
dentro de esas dos, se las da la vuelta 
incrementándose un marcador y de- 
crementándose otro. Cuando el table¬ 
ro esté completo, el jugador que ten¬ 
ga más fichas de su color habrá ga¬ 
nado la partida. 


En nuestra versión para el CBM 64, 
se organiza una partida entre dos ju¬ 
gadores (no se juega contra la máqui¬ 
na) incluyendo la posibilidad de ver 
repetidas las jugadas, detenerlas y 
cambiarlas y también la posibilidad 
de “pasar”. 

Las fichas se colocan moviendo el 
símbolo de Commodore (aparecerá 
parpadeando en la esquina superior 
izquierda) a la posición requerida 
usando el Joystick en el Port 2 ó bien, 
mediante las teclas de movimiento del 
cursor. Una vez situado, pulsando el 
botón de fuego o la barra de espacios 
se sitúa la ficha. 

Si intentas hacer un movimiento 
ilegal, el ordenador lo ignorará. 
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0 REM ************** 

1 REM ** 0THELL0 ** 

2 REM ************** 

10 P0KE56,56 : P0KE52,56 : CLR 

20 GQSUB58000 : PRINT" EMPEZAMOS? <S 0 N> :QOSUB1420 

30 GETRf:IFRf=""THEN30 
40 PRINT"3" • IFRf *"N"THENEND 
50 UD*«"«UZK^^ 

60 DIMSC<2) : DIMTIK1/65) : FF*0 

99 : 

100 REM **** CUADROS TABLERO **** 

110 DIMB0f<2) 

120 BO$<0>« ,, IKaABIll■l:DEXI■■FOHm ,, 

130 BOf <1> «"ai JK)üiiLMNIIiilOPQTT' 

140 BOf < 2 > » " El JKXIllLMNMIIJQPQrTT 

199 : 

200 REM **** CARACTERES AMPLIADOS **** 

210 DIMCHIK?) 

220 CHf < 07 »" O XIIK *!T : CHf < 1 > * " RTMÍBU.T 
230 CHS < 2 > * " Z£Jüil[ 3 .1" : CHf < 3 > = " ftKMMIf OT' 

240 chb < 4 >=" vxxuwvrr¡ CHf < 5 "+-xm . rr 

230 CHf < 6 > « V1XBIB2 TI" • CHf < 7 > =" 35HII46:T 

299 : 

300 REM **** NUMEROS AMPLIADOS **** 

310 NOf (0 > “CHf ( 2 > : NOf (1) * " 79H1I8 : 71" 

320 NOf < 2 >“"; ■MBK>n >> ¡ NOf < 3 ) ■ M ?*XIIH I .T 
330 NOf < 4 > = " : NOf í 3 ) * " K XIIII "H" 

340 NOf (6 ) ■ 1 " ■' nJUL/TI" : NOf < 7 > * " riMUrUT 
350 NOf ¿Bill XTJ" :N0f<9)* n 0 IHUWT 

399 i 

400 REM **** SPRITE #0 **** 
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410 POKE2040.13 

420 PGKEV+28. 1 : POKEV+37,2 : PQKEV+3S,7: FOKEV+39; 6 
430 PÜKEV.» 26 : POKEV+1 * 50 

499 : 

500 REM *### SPRITE #1 **** 

510 POKE2041 > 14 

520 POKEV+29/2 : PÜKcV+23/2 : POKEV+40,14 
530 PQKEV+2,220•POKEV+3; 83 


599 

600 
610 

699 

700 
710 


REM SELECCION DEL CONJUNTO DE CARACTERES 

POKEV+24/30 

REM #*#* SELECCION MODO MULTICOLOR W** 
PÜKEV+22 / 216 : POKEV+34,4 : PQKEV+35 > 3 


799 : 

800 REM **** PREFARA PANTALLA MM 
810 OÜSUB9010 

899 : 


999 ; 

1000 rem ********* bucle principal ********* 

1010 PQKES+24,* 0 : F-F+3 : IFF>3THENF-0 

1020 POKEV+21 / F : FOKEVU 26+24* < XX- 1 > • POKEV+1.. 50+24* < 

1030 IFFFTHEN7000 : REM REPETICION 

1040 IFSCa>+SCC2>=64THEN6000 

1050 GETR*:JO=PEEK<56320 > 

1060 IF J0=125THENR$= M W" 


YY-1 


> 


1070 IF JO*126THENR$= S "H" 

1080 IF JO^l19THENR$~"II" 

1030 IF JO» 123THENR$= S "II" 

1100 IF JO«l 1ÍTHENRS»" 

1110 IFR$«"W M THENVV=VV+1•IFVV>8THENVV®1 

11201FR$® M H"THENYV=VY~1:IFYVC1THENYV=8 

1130 IFR*= "II" THENXX*XX+1 :1 FXX>8THENXX* 1 

1140 IFR$»" II" THENXX*XX-1 : I FXX< 1 THENXX*3 

1150 IFR$=" " ANDBOCXX^ VVX1THENP0KEV+21 * 2 : GOTO 1210 

1160 IFR$="■"THEN5010 

1170 IFR$*"W"THENFF=1 : TU=0 

1180 GOTO1010 

1199 

1200 REM **** BUSCA FILAS **** 

1210 F1=0 

1220 F0RDX=-1T01 : F0RDY«-1T01 : F=0 : IFDX®0ANDDV«0THEN1270 

1230 FORI^ITOS : BO=BO<XX+DX*I ;■ VV+DV*I> : IFBQ=0THENI=8 : GOTO1260 

1240 IFI=1ANDBO®PLTHENI«8 : GOTO1260 

1250 IFBO=PLTHENF»l : 1=8 

1260 NEXTI : IFFTHENGOSUB1310 

1270 NEXTDV,DX 

1280 IFF1THEN5010 

1290 GOTO1010 

1299 : 

1300 REM **** ACTUALIZA MARCADORES **** 

1310 IFF1THEN1330 

1320 Y«YY : X=XX:SC(PL > =SC<PL) +1 : BO < X,V > «PL : GOSUB1410 
1330 FÜRJ=1TÜ8 : IFB0CXX+J*DX/r , Y+J*DV>=PLTHENJ»8 • GOTO1380 
1340 IFPL=1THENSC<2>=SCC2)-1'GOTO1360 

1350 sca>*sca>-i 


I 
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1360 SC(PL)*SC(PL)+1 : GOSUE1510 
1370 X*XX+J*DX:Y-VV+J*DY:GOSUB1410 
1380 NEXTJ■Fl*l:RETURN 
1333 : 

1400 REM *** IMPRIME CONTADOR,RUIDO **** 

1410 PRINTLEFT$(UD*, (Y-l>*3+1>TflB((X-l)*3>BQ*(PL> : BO(X,Y)*PL . 
1420 POKES+5,15:PQKES+6,81:POKES+24,15 

1430 POKES+4,123:F0RT=25T035¡POKES+1,T: F'OKES,T:NEXT:POKES+4,128 
1440 RETURN 
1439 : 

1500 REM #*** IMPRIME TANTEO **** 

1510 pr i nt " mxmma" tab (32 >; :fori=ito2 

1520 PRINTNOí(INT(SC(I)/10))NO*(SC(I)-INT(SC(I)/10)*10) 

1530 PRINT"MSMa"TAB(32> 

1540 NEXT.RETURN 
1533 : 

5000 REM **** CAMBIÓ DE JUGADOR **** 

5010 I FPL* 1 THENPL=2: POKEV+3,123: GQTO5030 
5020 PL=1'POKEV+3,83 

5030 TU( 0, TU ) =XX : TUí 1, TU> =VV : TU*TU+1 : XX* 1 : VV= 1 •' GOTO 1010 
5939 : 

6000 rem **** fin del juego mm 

6010 PQKEV+21,0 
6020 FORI*1TO50 

6030 POKEV+35,6 : FORJ=0TO5© : NEXT 
6040 POKEV+35,14 : FQRJ=0TO50 : NEXT 
6050 NEXT 

6060 POKEV+24,21 •' F'OKEV+33,0 ■ POKEV+32,0: PRINT"rxraiW" 

6070 PRINT3PCU4)"************-• 

6080 PRINT5PCÍ14)"* FIN *" 

6090 pr i ntspc (14? " mmmmmm " 

6100 PRINT"raW JUGADOR UNO (AZUL) : ”;SC<1>;" PUNTOS" 

6110 PRINT"raW JUGADOR DOS (BLANCO): ";SC(2); H PUNTOS" 

6120 PRINTSPCí14)"raWMMOTRA PARTIDA?" 

6130 CLR:S=54272=V*53248:GOTO30 
6399 : 

7000 REM mm REPETICION ***« 

7010 IFTU>0THEN7030 
7020 GOSUB3000 

7030 FRINT"k"LEFT $ (UDS,18)TAB(29)CH$(5)CH$(0)CH|:(4) 

7040 PRINT”*DU"TAB(27>CH*(7>" "CH$(2>" "CH$(6) 

7050 XX*TU(0,TU):VV»TU(1,TU) 

7060 POKEV, 26+24*(XX-1):POKEV+1,50+24*(YV-1) 

7070 PGKEV+21,3 : OETR* : I FRÍO " £ " ANDRÍO "4-" THENPOKEV+21,0: GOTO7070 

7080 POKEV+21,0 

7090 IFR$="£"THEN7110 

7100 IFTIJÍ0, TU+1 )O0THEN1200 

7110 FF*0 

7120 PRI NTLEFT* (IJD*, 17) •'FORI=0TO4: PRIHTTAB(27) " " ■ NEXT 

7130 GOTQ1010 
7939 : 

8000 REM **** COPIA CARACTERES ***# 

8010 FORBY*0TO7:X=0 
8020 FORBI=0TO7 
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8030 

8040 

8050 

8060 

8070 

8080 

8090 

8100 

8999 

9000 
9010 
9020 
9030 
9040 
9050 
9060 
9070 
9080 
9082 
9090 
9999 
58000 
58010 
58020 
58030 
58040 
58050 
58060 
58070 
58080 
58090 
58100 
58110 
58120 
58130 
58140 
58150 
58160 
58170 
58180 
58190 
58200 
58210 

58999 

59000 
59010 
59020 
59030 
59040 
59100 
59110 
59120 
59130 
59140 


IF <PEEK <3324S+CHP8+BV>AND2TBI)THENX=X+21<BI *2 > +2f < BI#2+1 y 
NEXTBI 

P0KEA+BV#2,X/256 
P0KEA+BVP2+1, X/256 
PÜKEA+16+BVP2, X-< I NT <X/256) #256) 

PQKEA+16+BYP2+1/ X-UNT<X/256)#256) 

NEXTBV:A*A+32 : IFA=14576THENA*A+40 
RETURN 

REM mm RECOLOCR TABLERO MM 
FOR I = 1 TOS •' FOR J» 1 TOS ; BO < I , J)=0 : NEXTJ , I 
BO í 4,4 > =2 : BO < 5,5)=2 : BO < 4,5) = 1 ; BO < 5,4) = 1 
POKEV+33.14:POKEV+32,14:PRINT"¡X j 

FORI = 1TOS : FORJ*1TOS:PRINTBOP<BÜ <I,J>);:NEXT:PRINT" OTC":NEXT 
PR I NT " SWDÍPprTAB < 27) : PRINT 
PRINT"IHWWTTAB<27)B0$< Y) 

PRINT M mm u TflB < 27 ) BOf < 2 ) 

SCO )=2 : SC<2)=2 : XX a 1:yv=l:PL=1:TU=1 

GOSIJB1510 

RETURN 

REM **** TITULO MM 

V*53248 : 3*54272 : POKE V+33, 11 : POKEV+32, 11 : PRINT" IX" ; 

FORI*0TO5 : FQRJ=0TO19 : PRINT" I"; :NEXTJ : FQRJ=0TO19:PRINT"*-+";:NEXTJ,I 
FOR I =0TO 19 : PR I NT " I " ; ■’ NEXT 

PRiHT n mamíarr wznr yiisniinrr misnumiiirF rsnr; 

PRINT "lia Ipil IPPFIPPI IPPI II liiil IPPPI IPPPI IPPI " 

FORI*0TO1 ; PRINT"113 IPPI IPPI IPPI IPPI II IPPPI IPPPI IPPPI IPPI II"; : NEXT 
PRINT'lia IPPI IPPI IPPI r »ra II r finia IPPPI IPPPI IPPI ir; 

FQRI*0TO2: PRINT "113 IPPI IPPI IPPI IPPI II IPPPI IPPPI IPPPI IPPI II", : NEXT 
FRiNT 'ifirsr ■rn»pp r ippp r ippnrar yirsr w\rw w rw wr" 

PRINT".TODOS JUGADORES AZUL V BLANCO,PONEN FICHAS"; 

PRINT"EN EL TABLERO.(USANDO «ESPACIOS 0 «FUEGOS )" 

PRINT" SI LA PIEZA FORMA UNA LINEA (HORIZ., "; 

PRINT"VERT. O DIAG.) CON OTRA,ENTONCES TODAS" 

PRINT "LAS FICHAS "ATRAPADAS"' SE DAN LA VUELTA" 

PRINT"V EL MARCADOR CAMBIA DE ACUERDO A ELLO.M" 

PRINT"SO USA LAS TECLAS DEL CURSOR Y/O JOVSTICK" 

PRINT"II PULSA 3F85 PARA NO HACER LA JUGADA" 

PRINT"kEN EL MODO REPETICION «<CTRL' C')B USA:" 

PRINT" y a+fi" PARA SEGUIR , ‘3£fi r PARA VOLVER" 

PRINT"0LOS GRAFICOS TARDAN 100 SEG. EN HACERSE!!" 

IFPEEK<896 >-255THENRETURN 

REM MM PREPARA GRAFICOS MM 
CH=1O00:fl=14336 

READD : IFD>255THENGOSUB59500 : GOTO59020 
IFD-C0THEN59100 % 

CH»CH+D:POKEA,D : A=A+1:GOTO59020 

P0KE56334,PEEK <56334)AND254 

POKE1,PEEK <1)AND251 

FORI*0TO16 : READCH : GOSUB8000 : NEXTI 

POKE1,PEEK<1)0R4 

P0KE56334,PEEK<56334) OR1 
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Z3133 

o 1 

59200 

o I 

59210 

o 1 

59299 

O 

59300 
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59310 
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59320 
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n 1 

59330 

O 1 

59340 
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o 1 

59410 

o 1 

59420 
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59500 

o 
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o 1 
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59600 
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59760 

o 1 
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REM **** BORRA ESPACIO **** 

FÜRI=0TO7 : POKE 14336+32*8+1,9 ■' NEXT 

REM **** SPRITE#0 **** 

CH=1@00 : A=832 

READD = IFO255THEMGOSUE53300 ¡ OOTO59320 
IFDC0THEN59400 

CH=CH+D : POKER, D ■ A=A+1 ■ GOTQ59320 

REM **** SPRITE#1 **** 

FOR1=01062•F0KE896+1,255=NEXT 
RETURN 

REM **** RUTINA DE COMPROBACION DE DRTRS **** 
IFD=CHTHENCH=1000•RETURN 

PRINT'TERROR DE DRTRS EN Lfl LINEA "PEEK<64)*2S6+PEEKÍ63> 
PRINT" SREF'ASA EL LISTADOS" '< END 


REM**** DRTRS F'RRR GRAFICOS TABLERO **** 

DATA170,170,149,149,149,149,149,149,2234 
DATA170,170,85,85,85,85,85,85, 1850 
DATA 170,1 (' 0,86,86,86,36,86,86, 1856 
DATA149,149,149,149,149,149,149,149,2192 
DATA85,85,85,85,85,85,85,85, 1680 
DATA86,86,86,86,86,86,86,86,1688 
DATA149,149,149,149,149,149,170,170,2234 
DATA85,85,85,85,35,85,170,170,1850 
DATA86,86,86,86,86,86,170,170,1856 
DATA170,170,149,151,159,159,159,191,2308 
DATA170,170,85,255,255,255,255,255,2700 
DATA170,170,86,214,246,246,246,254,2632 
DRTA191,191,191,191,191,191,191,191,2528 
DRTR255,255,255,255,255,255,255,255,3040 
DATA254,254,254,254,254,254,254,254,3032 
DATR191,159,159,159,151,149,170,170,2308 
DATA255,255,255,255,255,85,170,170,2700 
DATA254, 24t*, 246,24t* ,214,8t*, 1,0, 1 ,* 0,2632, — 1 

REM**** CARACTERES AMPLIADOS **** 

DRTA3,5,15,18,19,21,28,31,49,50,51,52,53, 54,55,56,57 

REM**** DATA DE LOS SPRITES **** 

DATA0,0,0,0,12,0,3,252,1267 
DATA0,15,240,0,63,0,0,60,1373 
DATA0,0,240,42,160,240,42,128,1852 
DATA240,42,0,240,0,0,240,0,1762 
DATA0,240,0,0,240,21,0,240,1741 
DATA21,64,240,21,80,252,21,80,1779 
DATA60,0,0,63,0,0,15,240,1378 
DATR0,3,252,0,0,12,0,1267,-1 






























GUIA PRACTICA 



CAMAFEO ,nc. 

CASSETTES DE CALIDAD PROBADA 
PARA ORDENADORES 


CAJA DE 15 

C-5. 199 ptas c/u i C-5’. 1.990 ptas 

OIA OAA _ 1__/ 1 A I A A A /N 


C-10 ... 209 ptas c/u 
C-1 5 ... 219 ptas c/u 
C-20 ... 229 ptas c/u 


C-10’ ... 2.090 ptas 
C-1 5’ ... 2.190 ptas 
C-20’ ... 2.290 ptas 


ENVIE ESTE CUPON A 


CAMAFEO. 


José Lázaro Galdiano. 1. 28036-Madrid 

cassettes de C cuyo importe abonaré libre de 

r medio de mi talón bancario por.ptas . que 


DEFOREST 

MICROINFORMATICA 


TODO SOBRE COMMODORE - 64 V VIC - 20 

LOS ULTIMOS JUEGOS EN EL MERCADO 
TODO EN PERIFERICOS - LIBROS 
PROGRAMAS DE GESTION - ETC. 

SOLICITE INFORMACION POR CORREO 


BARCELONA-15 

|C/ Viladomat, 105. Tel. 223 72 29 


Bigay, 11-13 
Tel. (93) 212 85 96 
Baicelona-22 


¡HOLA, SOY TRONIK 
TU AMIGO INFORMATICO! 



- Todo sobre el 

COMMODORE 64 
y VIC 20 

• Periféricos. 

• Múltiples 
programas. 

• Libros y revistas 

• Recompramos 

tu ordenador como 
entrada de otro 
nuevo. 

• Cursillos de BASIC 
a todos los niveles 


PRECIOS ESPECIALES 
PARA COLEGIOS 
Y TIENDAS 


VI C-20 

COMMODORE 64 
ZX81 1K 
SPECTRUM 48K 
ORIC ATMOS 48K 
MICRODRIVE 
INTERFACE 
JUEGOS (Importados) 

* * * 

Tel. (93) 242 80 11 BARCELONA 
Tel. (93) 319 39 65 BARCELONA 
Tel. (93) 725 20 59 SABADELL 
(A partir 18.00 horas) 

k k k 

MICRO / RAM 

Obispo Laguarda 1, I. 9 
08001 BARCELONA 


COMMODORE 64 
SPECTRUM 
CASIO 


PRECIOS INTERESANTES 

CMP 

Arturo Soria, 154 
Tel. 415 93 28 
28043 MADRID 


ANUNCIESE 

por 

MODULOS 

MADRID 

(9 1)73396 62 

BARCELONA 

(93)3014700 


CENTRO DE INFORMATICA 
Las Rozas - Majadahonda 

EMPEZAMOS 
Cursillos en BASIC 
cada 15 di'as 

Directamente con ordenadores 
VIC-20 COMMODORE 64 
SPECTRAVIDEO 

Tfno.637 31 51 


ULTIMO AVISO 


¿Eres aficionado a ia programación? 
¿Dominas el código máquina? 

¿Tienes programas originales? 

¿Puedes escribir un buen juego? 
¿Quieres ganar dólares, libras, francos o 
pesetas desde tu casa, en tus horas libres? 

¡NO TE LO PIERDAS! 

Contacta inmeditamente con: 

CIBERCOMP, S. A. 

Tels. (91) 200 21 00 
(91) 759 22 44 


Especialistas en software para Home Computers, 
asociados con primeras firmas internacionales. 


O 


rn/ncg/c" COLOSSUS CHESS 2-0 

CHFsipto' El me i° r juego de ajedrez 
/f creado hasta el momento en 
Jty su nivel SLJ P eri or, supera a to- 
- dos * os demás programas de 

ajedrez en otros ordenadores 
'\ tardaron siete años en crearlo 
" pero al fin lo tenemos aquí con 

. _ manual en castellano. 

Por sólo 2.750 ptas. 

Precios especiales para distribuidores 


Todos los simuladores de vuelo para 
el COMMODORE 
COMMODORE-64 
Instrucciones en castellano 
Flight Part 737 — 1.950 pts. 

Pilot 64 — 1.950 pts. 

Solo Flight — 3.850 pts. 

Flight Sim.ll — 13.900 pts. 

(resumen en cast.) 

VIC 20 

Flight Part 737 — 1.900 pts. 
Instrucciones en castellano 
ASTOC-DATA 

Hardware y Software-Systems 
Sarela de Abajo 
Santiago de Compostela 
Tel. 599533 

Precios especiales para distribuidores 




















Del 16 al 23 de Noviembre de 1984 



ESTAREMOS 
EN EL S1M0’84 


Stand-D-168 
PABELLON XI 


Stand-E-14 
PABELLON XII 






El Logo tiene un subconjunto de 
instrucciones, conocido como «el 
idioma de la tortuga», que permite re¬ 
solver problemas geométricos. Por su 
facilidad de uso en gráficos, las pri¬ 
mitivas fundamentales han sido incor¬ 
poradas en ampliaciones de BASIC 
(como ULTRABASIC) o en el Pascal 
UCSD. Aunque es una parte muy sig¬ 
nificativa y, sin duda, la más difun¬ 
dida del Logo, no se debe identificar 
el sublenguaje de la tortuga con el len¬ 
guaje Logo. 

La tortuga ofrece un gran campo 
de aplicación para programadores in¬ 
fantiles. «Imaginemos una tortuga, 
muy obediente a las órdenes, que se 
mueve sobre la arena de una playa y 
que, al trasladarse, va dejando con su 
panza un rastro que será un dibujo.» 

El Logo, en este caso la tortuga, só¬ 
lo sabe inglés por el momento. El cas¬ 
tellano se lo enseñaremos dos párra¬ 
fos más adelante. Al indicar la ins¬ 
trucción DRAW (dibujar) aparece 
nuestra tortuga, representada por un 
triángulo isósceles, en el centro de la 
pantalla y orientada hacia arriba (fi¬ 
gura 3). Se ve a la tortuga en la pan¬ 
talla gráfica y también aparece, en 
otro color de fondo, parte de la pan¬ 
talla de texto usada para las órdenes. 
Le indicamos FORWARD 100 (ade¬ 
lante 100 pasos) y después de pulsar 
como siempre RETURN, para que 
«nos oiga», vemos que se mueve y 
queda dibujado un segmento de lon¬ 
gitud 100 (figura 4). A continuación 
tecleamos RIGHT 90 (derecha 90 gra¬ 
dos) y se observa que la tortuga no 
avanza sino que gira un ángulo recto 

99 oommo d ort 
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hacia su derecha (figura 5). La tortu¬ 
ga también puede moverse sin dejar 
rastro: para ello debe ordenarse PE- 
NUP( = levanta la pluma). Lo contra¬ 
rio es PENDOWN ( = baja la pluma). 
Si pulsamos PENUP RIGHT 45 
FORWARD 100 veremos la figura 6. 

La tortuga se mueve en un entorno 
de alta resolución, con 320*200 pun¬ 
tos, donde son posibles los 16 colores 
tanto para el fondo como para el ras¬ 
tro de la tortuga. Normalmente la tor¬ 
tuga está en el modo SINGLECO- 
LOR, pero ordenando DOUBLECO- 
LOR pueden coexistir 2 colores dis¬ 
tintos para puntos, aparte del color de 
fondo, en cada uno de los 40*25 es¬ 
pacios en que se divide la pantalla 


gráfica, a cambio la resolución baja 
a 160*200. 

Dado que en Logo cualquier letra 
o palabra significa un procedimiento, 
las variables (numerales, literales o lis¬ 
tas) deben diferenciarse para evitar la 
confusión. Cuando se define su valor 
se anteponen unas comillas al nom¬ 
bre de la variable. Asi: MAKE ”N 5 
hace que la variable *N valga 5. 
Cuando nos referimos al valor (no al 
nombre) de la variable, debe aparecer 
precedida por dos puntos. Así: FOR¬ 
WARD :N quiere decir adelante 5, da¬ 
do que el valor de N es 5. No debe 
dejarse espacio en blanco entre ” o : 
y la variable. Si N aparece así signifi¬ 
ca procedimiento N (como procedi¬ 
mientos eran AJEDREZ, ...). 

INSTRUCCIONES GRAFICAS 

Las primitivas gráficas forman una 
colección numerosa, y podemos des¬ 
tacar las siguientes: 

SINGLECOLOR, DOUBLECO- 
LOR. Si los 64.000 puntos 
(=320*200) pudiesen ser de cualquie¬ 
ra de los 16 colores disponibles, serían 
precisos 32.000 Bytes de memoria de¬ 
dicados al color de la pantalla gráfi¬ 
ca. Agrupando los pixels en bloques 
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de 8*8 (el espacio de un carácter en 
la pantalla de texto) y permitiendo a 
los sumo 2 colores en cada bloque, 
aparte el del fondo, solamente se re¬ 
quiere 1 KB. 

FORWARD :N, BACK :N = ade¬ 
lante, atrás N pasos en el sentido ha¬ 
cia el que apunta la tortuga. 

RIGHT :N, LEFT :N = gira a la 
derecha, izquierda N grados sexage¬ 
simales. 

PENDOWN, PENUP baja o suble 
la pluma para dejar o no rastro. 

HIDETURTLE SHOWTURTLE 
para ocultar o mostrar la tortuga, que 
es el sprite 0. 

HOME lleva a la tortuga al centro, 
coordenadas 0,0, y la orientada hacia 
arriba. 

BACKGROUND :N, PENCOLOR 
:N para dar un color del 0 al 15 al fon¬ 
do y a la tortuga (y a su rastro si 
PENDOWN). Si PENCOLOR —1 la 
tortuga borra la trayectoria por la que 
pasa (es equivalente a PEÑERASE). 

STAMPCHAR :N permite repre¬ 
sentar caracteres en la pantalla gráfi¬ 
ca. STAMPCHAR ”A dibujará una 
letra A. Solamente es bien legible en 
SINGLECOLOR. 

Para casi todas las primitivas exis¬ 


ten formas abreviadas, tales como FD 
:N = FORWARD :N, ... 

La pantalla de texto puede tener de¬ 
finidos los colores del fondo y de los 
caracteres mediante TEXTBG :N y 
TEXTCOLOR :N. Para presentar 
únicamente la pantalla gráfica o de 
texto se emplean FULLSCREEN o 
TEXTSCREEN. Para combinarlas 
SPLITSCREEN, que presenta las 10 
líneas inferiores de la pantalla de tex¬ 
to, con sus colores característicos, se¬ 
gún se hayan establecido. Para variar 
la proporción entre ambas pantallas 
existe SPLITSCREEN :N) siendo :N 
el número de líneas de texto a mos¬ 
trar. 

CLEARSCREEN y CLEARTEXT 
borran respectivamente las pantallas 
gráfica y de texto. 

DRAW (dibujar) y NODRAW (no 
dibujar) pasan al modo gráfico o de 
texto. 

WRAP (envolver, enrrollar) y 
NOWRAP permiten conectar o no los 
lados izquierdo y derecho, y superior 
o inferior de la pantalla gráfica. Tras 
DRAW si si la tortuga se encuentra en 
estado WRAP y desaparece por arri¬ 
ba, reaparecerá por abajo (si estuvie¬ 
se en NOWRAP daría error). 

SETX :A, SETY :B, SETXY :N :M 


pone a la tortuga en la abscisa :A, o 
en la ordenada :B o en las coordena¬ 
das :N, :M. 

XCOR (coordenada x) e YCOR in¬ 
dican la abscisa y la ordenada en la 
que está la tortuga. 

HEADING (orientación) da el án¬ 
gulo en el que mira la tortuga, de 0 
a 360 grados. 0 es hacia arriba, 90 ha¬ 
cia la derecha, ...SETHEADING :N 
pone a la tortuga en la dirección 
rN.TOWARDS :X Y utilizado de la 
forma SETHEADING TOWARDS 
:X :Y pone a la tortuga dirigida ha¬ 
cia el punto de coordenadas :X, :Y. 

DRAWSTATE da como resultado 
una lista conteniendo las condiciones 
de dibujo: pluma arriba o abajo; tor¬ 
tuga visible o no; color de fondo y de 
rastro; modo DRAW o no; multi o 
monocolor; pantalla gráfica, de tex¬ 
to o mezcladas; color del fondo y de 
los caracteres del texto. 

Otras sentencias primitivas de la 
tortuga que se refieren a los «duen¬ 
des» se explican más adelante. 

Las posibilidades del Logo para ha¬ 
cer todo tipo de dibujos, tanto artís¬ 
ticos como geométricos (véase las fi¬ 
guras 7, 8 y 9 como muestra) son ini¬ 
gualables. Desde niños de 4-5 años sin 
alfabetizar aún o en Educación Espe¬ 
cial (procedimiento INSTANT más 
adelante), hasta físicos y matemáticos 
(libro de la referencia 4) han utiliza¬ 
do la herramienta gráfica que brinda 
el Logo. 


DEFINICION Y EDICION 
DE PROCEDIMIENTOS 

Para crear una instrucción se em¬ 
plea usualmente la primitiva TO, se¬ 
guida del nombre del procedimiento 
y los parámetros que utilice como ar¬ 
gumentos. Por ejemplo: 

TO CUADRADO :L (al pulsar RE- 
TURN se pasa al modo Edición). 

FD :L RT 90 FD :L RT 90 FD :L 
RT 90 FD :L RT 90 (se recuerda que 
FD = FORWARD y RT = RIGHT). 

Se teclea CONTROL-C o la tecla 
STOP y al salir del modo Edición 
aparece en la pantalla de texto 
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«P LE ASE WAIT...» (Por favor, espe¬ 
re) y casi instantáneamente CUA¬ 
DRADO DEFINED. Ahora basta 
pulsar CUADRADO 40 para que la 
tortuga avance 40 pasos, gire 90 gra¬ 
dos a la derecha, avance... y dibuje un 
cuadrado de 40 pasos de lado. La nue¬ 
va orden CUADRADO queda alma¬ 
cenada en el «espacio de trabajo» y 
no se borrará hasta que ordenemos 
GOODBYE, sería aconsejable guar¬ 
dar en disfcette los procedimientos 
creados, si son interesantes. Con SA- 
VE ”NOMBRE.DEL.FICHERO se 
deposita en el disco de trabajo todos 
los procedimientos definidos y las va¬ 
riables globales empleadas con sus va¬ 
lores. Para recuperar los programas, 
que no son sino super- 
procedimientos, se emplea READ 
"NOMBRE.DE.FICHERO. Si algún 
fichero grabado ya no es útil ERASE- 
FILE "NOMBRE.DE.FICHERO lo 
borrará. 

Si se quiere anular un procedimien¬ 
to innecesario del espacio de trabajo, 
para disponer de más memoria de no¬ 
dos, basta ordenar ERASE "NOM¬ 
BRE (por ejemplo ERASE "CUA¬ 
DRADO). Para volver al modo Edi¬ 
ción se emplea EDIT, lo que permite 
modificar el último procedimiento. 
Asimismo en todo momento pode¬ 
mos repetir TO CUADRADO y nos 


aparecerá en el modo Edición la de¬ 
finición anterior para reformar si fue¬ 
ra preciso. 

Otra forma de definir procedimien¬ 
tos, menos cómoda, es mediante la 
instrucción DEFINE. El ejemplo an¬ 
terior se hubiese podido realizar así: 
DEFINE "CUADRADO [[:L][FD :L 
RT 90 FD :L RT 90 FD :L RT 90 FD 
:L RT 90]]. DEFINE toma el nombre 
del procedimiento (precedido de ") y 
una lista (entre corchetes), siendo el 
primer elemento a su vez una lista con 
las variables del procedimiento (si no 
las tuviere, la lista debe aparecer como 
[]). 

La primitiva TEXT "NOMBRE 
nos muestra en forma de lista el pro¬ 
cedimiento "NOMBRE, que ha debi¬ 
do ser definido anteriormente. 


¡HABLEMOS CASTELLANO! 

Traducir externamente las instruc¬ 
ciones primitivas en inglés a procedi¬ 
mientos en castellano es trivial, según 
se deduce de lo expuesto. Por ejem¬ 
plo, mediante: TO ADELANTE :N 
FD :N 

y pulsando la tecla STOP el ordena¬ 
dor ya entiende la orden ADELAN¬ 
TE :N. Su forma compendiada po¬ 
dría ser: 


TO AD :N 
ADELANTE :N 

y así crear un fichero que titulado 
CASTELLANO y pasado a diskette 
con SAVE "CASTELLANO nos ser¬ 
viría para que otro día tras cargar el 
Logo y leer este archivo con READ 
"CASTELLANO, dispongamos ya de 
Logo en español. 

Se rumorea que Commodore está 
preparando una versión con primiti¬ 
vas en castellano, lo que sería prefe¬ 
rible por normalizar la nomenclatu¬ 
ra y para reservar el espacio de traba¬ 
jo para otros menesteres. 


PRIMITIVAS CONDICIONALES, 
DE CONTROL Y DE LAS VARIA¬ 
BLES 

Se enumeran a continuación otras 
sentencias primitivas, con una suma¬ 
ria explicación. Se recuerda que las 
principales órdenes tienen abreviatu¬ 
ras que no se indican en este resumen. 

Condicionales: 

NOT, IF...THEN ...ELSE como en 
BASIC (el THEN puede suprimirse). 

ALLOF, ANYOF equivalentes a 
AND y OR. 

TEST analiza la valided de la con- 






dición y da TRUE (verdadero) o FAL- 
SE. 

IFTRUE, IFFALSE ejecuta el res¬ 
to de la línea según el resultado del 
TEST precedente. 

De control: 

GO (procedimiento) realiza el pro¬ 
cedimiento. Es superflua (como LET 
en BASIC y basta teclear el nombre 
del procedimiento. Se utiliza ocasio¬ 
nalmente para mayor claridad. 

GOODBYE o pulsando simultá¬ 
neamente las teclas STOP y RESTO¬ 
RE, para limpiar el espacio de traba¬ 
jo y restablecer el Logo inicial, pero 
no borra el área de lenguaje máqui¬ 
na del usuario. 

OUTPUT efectúa la evaluación de 
un procedimiento y al obtener un re¬ 
sultado se detiene en ese punto y en¬ 
vía el valor al procedimiento prece¬ 
dente. 

RUN :N toma como argumento 
una lista :N y la ejecuta paso a paso 
como si fuese tecleada. 

REPEAT :N :L ejecuta como RUN 
la lista :L tantas veces como indica el 
valor :N. El procedimiento CUA¬ 
DRADO :L podría ser simplemente 
REPEAT 4 [FD :L RT 90]. 

STOP detiene la ejecución del pro¬ 
cedimiento en el que aparece y devuel¬ 
ve el control al procedimiento previo. 
Algo similar al RETURN del BASIC. 
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TOPLEVEL (o pulsando 
CONTROL-G) interrumpe la ejecu¬ 
ción de todo el programa. (END se 
utiliza en la definición de procedi¬ 
mientos y es colocado automática¬ 
mente cuando se sale del modo Edi¬ 
ción). 

Relativas a las variables: 

LOCAL ”A hace local a la varia¬ 
ble A en la ejecución de un procedi¬ 
miento y no mantiene su valor des¬ 
pués (con el consiguiente ahorro de 
memoria). Las variables que son ar¬ 
gumentos de un procedimiento tienen 
este carácter siempre. 

MAKE ”A :B crea una variable glo¬ 


bal (a menos que sea antecedida por 
LOCAL ”A) y le asigna el valor :B 
(número, palabra o lista, que a su vez 
puede ser de números, palabras o lis¬ 
tas...). 

THING ”A equivale a :A. 

THING? ”A da como resultado 
TRUE (verdadero) si la variable ”A 
tiene un valor asignado. 


CALCULO 

Aparte de los operadores y las fun¬ 
ciones comunes con el BASIC como 
= , +, —■,*,/,>,< , SIN y COS (ope¬ 
ran con grados, no con radianes), 
SQRT (raíz cuadrada, como SQR en 
BASIC), RANDOM, RANDOMIZE, 
INTEGER (como INT), QUOTIENT 
y REMAINDER (cociente y resto en¬ 
teros, como DIV y MOD), se dispo¬ 
ne de las siguientes instrucciones: 

ROUND :A redondea al entero 
más cercano (ROUND 4.8 = 5, IN- 
TEGER 4.8 = 4). 

NUMBER? :A da TRUE si la va¬ 
riable ”A tiene asociado un número 
como valor, no una palabra ni una lis¬ 
ta. 

ATAN :A :B da en grados el arco 
de :A/:B. 

BITAND, BITOR, BITXOR toman 
como argumentos 2 enteros y dan co- 
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mo resultado su composición boolea- 
na mediante el conector lógico AND, 
OR y OR exclusivo, respectivamente. 
Ejecutan bit a bit las operaciones ló¬ 
gicas AND, OR y XOR como en BA¬ 
SIC. 

ENTRADA-SALIDA 

Las principales primitivas son: 
ASCII :N Y CHAR :M, la prime¬ 
ra toma un carácter como dato y da 
su número de códigos ASCII y la se¬ 
gunda es su recíproca. Como ASC y 
CHR$ en BASIC. 

CURSOR :C :F coloca el cursor en 
la columna :C y fila :F. Se comple¬ 
menta con CURSORPOS, que indi¬ 
ca la posición actual del cursor. Co¬ 
mo PRINT AT en BASIC. 

JOYSTICK :N y JOYBUTTON :N, 
PADDLE :N y PADDLEBUTTON 
:N para control de estos periféricos de 
entrada, muy útiles en juegos de ani¬ 
mación, especialidad del Logo. 

PRINTER y NOPRINTER para 
activar y desactivar la impresora. 

PRINT :N,PRINT1 :N,FPRINT 
:N para presentar resultados en dis¬ 
tintas formas. 

CLEARINPUT limpia el buffer del 
teclado. 

REQUEST recoge una entrada en 
forma de lista tras pulsar RETURN. 
Similar al INPUT del BASIC. 

READCHARACTER da como re¬ 
sultado el primer carácter de buffer de 
teclado y si está vacío espera a la pri¬ 
mera pulsación. Semejante a GET. 

RC? da TRUE si alguna tecla es 
pulsada. 

GESTION DE LA UNIDAD DE 
DISCO 

Y DEL ESPACIO DE TRABAJO 

Las principales instrucciones primi¬ 
tivas de este apartado son: 

DOS :L para formatear un disket- 
te, o copiar, cambiar de título o bo¬ 
rrar programas. 

SAVE :P, READ :P, ERASEFILE 
:P que guarda, lee y borra el progra¬ 
ma P en un fichero del diskette de tra¬ 
bajo. Al recuperar un programa, 
READ :P, si se ha definido una va¬ 
riable de título ”STARTUP (MAKE 
”STARTUP :X) es ejecutado inmedia- 

OC ~ " ----— 
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tamente su contenido, que debe ser 
una lista, como un RUN :X. 

CATALOG muestra los programas 
disponibles en el disco. Los títulos 
aparecen seguidos de los sufijos .LO¬ 
GO, .PIC1, .PIC2 o .SHAPES según 
contengan un programa, el dibujo y 
color de la copia de una pantalla grá¬ 
fica o la forma de un «duende» (ver 
más adelante). Los archivos en códi¬ 
go máquina cambian el sufijo. 

PRINTOUT :A indica la definición 
del procedimiento :A. Puede utilizarse 
con ALL, PROCEDURES, ÑAMES 
o TITLES, resultando la definición de 
todos los procedimientos y valores de 
las variables, o sólo los procedimien¬ 
tos, o sólo las variables, o únicamen¬ 
te los títulos de procedimientos, alma¬ 
cenados en el espacio de trabajo. 

POTS = PRINTOUT TITLES. 

SAVEPICT :D, READPICT :D, 
ERASEPICT :D que salva, lee o bo¬ 
rra un archivo, titulado D que contie¬ 


ne una reproducción exacta (salvo 
sprites) de la pantalla gráfica. 

ERNAME :A borra la variable glo¬ 
bal :A del espacio de memoria. 
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10. «APPLE, LOGO PRIMER». Gary Bit- 
ter. Prentice Hall, 1983. 


11. «UNDERSTANDING LOGO». Richard 
Peddicord. Alfred Publishing Co., 1983. 

12. «LOGO PROGRAMING». Peter Ross. 
Addison Wesley, 193. 

13. «LEARNING LOGO IN THE APPLE 
II». Anne McDougall. Prentice Hall of 
Australia, 1982. 

14. «1, 2, 3 MY COMPUTER & ME». D. 
Bearden. Prentice Hall, 1983. 

15. «THE TURTLE’S SOURCEBOOK». D. 
Bearden. Prentice Hall, 1983. 

16. «PREMIERES PAS EN LOGO». Marie- 
Gaelle Monteil. Eyrolles. París, 1984. 

17. «LOGO». Gerard Weidenfeld. Eyrolles. 
París, 1984. 

Los artículos sobre Logo en revistas son muy 
abundantes. Se pueden citar: 

18. «VOYAGE AU CENTRE DE LOGO». 
Pierre Camilhe. L’Ordinateur Individuel. 
Octubre de 1983. Traducido por El Or¬ 
denador’ Personal. 

JOSE MIGUEL 
AGUIRREGABIRIA, 

Profesor titular de la Escuela Universitaria de 
Profesorado de EGB de Bilbao. Coordinador- 
del equipo de EAO de Vizcaya. 

Avda. Santa Ana, 10-1. G Leioa (Vizcaya). 
Teléfono: (94) 464 19 97. 



Ha llegado un N° 1 


SAUCER ATTACK 
es realmente 
un JUEGO DISTINTO 


FOTOS 

TOMADAS DIRECTAMENTE 
DE UN MONITOR 1702 
COMMODORE 


JflilES 0 


SflUCERS 0 


INSUPERABLE CALIDAD AUDIOVISUAL 


FERRE-mORET /.fl 


Tuset n.° 8, entlo. 2.° Tel. 218 02 93 
BARCELONA 08006 


DISTRIBUIDORES 
Y PARTICULARES 


NOMBRE. 

DIRECCION. 

CIUDAD. 

....PROVINCIA. 

□ Adjunto cheque 

□ Contra reembolso 

Precio Venta 

Gastos envío: 300 ptas. 

9.975 ptas. 















La principal ventaja que aporta él 
paddle es la posibilidad de conseguir 
una gama de valores escalonados, que 
podemos aplicar a nuestro programa 
para ejercer un control más exacto so¬ 
bre un determinado proceso de lo que 
hace posible el joystick. Con él, estan¬ 
do en posesión de un programa de mi¬ 
nucioso desarrollo, el funcionamien¬ 
to puede ser más intuitivo para el 
usuario que si empleamos un joystick. 

Cada uno de los dos accesorios tie¬ 
ne sus ventajas e inconvenientes. Un 
joystick es más barato de producir y 
también se estropea menos, normal¬ 
mente, pues está compuesto única¬ 
mente por contactos que se abren o 
cierran. 

Por el contrario, un paddle está 
constituido por un potenciómetro, 
componente que lleva una pieza mó¬ 
vil, llamada cursor, que podemos des¬ 
plazar a lo largo de una pista resisti¬ 
va, dispuesta en sentido circular. El 
principal fallo que puede ocurrir es el 
desgaste de la pista, por el uso, y que 
los valores obtenidos no correspondan 


a la resistencia que debería presentar 
en ese punto, pero un potenciómetro 
tampoco es algo que se gaste todos los 
días. De hecho los utilizamos todos 
los días en nuestra radio y duran su 
tiempo. Es el mismo componente lo 
que se utiliza en el paddle que en una 
radio o tocadiscos, aunque la princi¬ 
pal diferencia estriba en que el padd¬ 
le requiere que el potenciómetro sea 
lineal, es decir, su resistencia será di¬ 
rectamente proporcional al ángulo gi¬ 
rado por el eje. En un sistema de 
audio suele emplearse el potencióme¬ 
tro de característica logarítmica, o lo 
que es igual, la resistencia es propor¬ 
cional al logaritmo del ángulo girado. 
Este factor es algo a tener en cuenta, 
si bien la apariencia externa del po¬ 
tenciómetro es la misma, el efecto 
conseguido no es igual. Veamos lo 
que sucedería en caso de utilizar uno 
logarítmico, por ejemplo, en el pro¬ 
grama de demostración que ofrece¬ 
mos más adelante. En un extremo (o 
arriba o abajo) de la pantalla, la na¬ 
ve espacial se desplazaría un largo tre¬ 


cho con un giro mínimo del eje del 
potenciómetro, sin embargo apenas se 
movería con la misma cantidad de gi¬ 
ro en el extremo opuesto. Este efecto 
podría corregirse aplicando las fun¬ 
ciones de carácter logarítmico del BA¬ 
SIC a un programa adecuado, pero 
son ganas de complicar las cosas sin 
necesidad. 

Llegados a este punto no está de 
más reiterar que los paddles utilizados 
para los equipos de Atari son perfec¬ 
tamente válidos para el Vic-20 y el 
C-64, siendo compatible hasta el co¬ 
nectar que los une al ordenador. 

El montaje que presentamos se 
compone de dos posibilidades. La pri¬ 
mera son dos paddles independientes 
entre sí, aunque comparten el mismo 
conector. La segunda son los dos 
paddles dispuestos a modo de joys¬ 
tick. Se puede utilizar uno u otro se¬ 
gún sea el programa con que lo utili¬ 
cemos, si por ejemplo sólo necesita¬ 
mos movernos en una dirección, 
mientras nuestro contrincante lo ha¬ 
ce en la paralela, o contrariamente, el 


lea rem *************** 

i 13 REM * RAEDLES VIC * 
123 REM *************** 
236 REM 


1003 REM *MEMÜRIA DE PANTALLA* 
i3i3 MP=7680 : MC-3840G 
2000 REM *IHICIRLIZñCIOH DDE# 
¿v¿i 0 pijK.E 3 7 1 39 .* 0 • PüKfc.3 7 154.» 12 7 
3000 REM «LECTURA RAEDLES# 


3 010 X-PEEK C36872 > : V-PEEK 


z» r c» 


4000 

4010 


REM «COORDENADAS 
XÜ~ I NT < (X/255 > #21 


CARACTER* 

> : VQ-INT <(V 


255 ) #23 ) 


5*00 

5610 

5036 


REM *IMPRIME CARACTER# 

F’OKE MP+X0+22*VQ,81 : F0KE MC+X0+22#V0/2 
F 0KE MP + X 0+2 2 # ¥0 > 8 i : P¡3K E MC +X0+22# ¥ 0 > i 
GOTO 3000 




noctor » 

ZjLnj9_ 


Figura 3. Programa de comprobación para el Vic-20. 


NUMERO 9 



















t U Paddle 


control de movimientos debe ser to¬ 
tal por medio del bastoncillo. 

En el primer caso, es necesario que 
dispongamos de dos potenciómetros, 
por separado, en sendas cajas, sien¬ 
do el diagrama de patillas el mostra¬ 
do en la figura 2 (ver el diagrama del 
conector en la figura 5). La foto 1 
muestra un posible aspecto externo 
del moptaje de uno de los paddles, 
con el botón de fuego correspondiente 
(se utiliza igual que con los joysticks, 
tanto en el programa como en la co¬ 
nexión al ordenador). 

La foto 2 muestra la sencillez de la 
conexión de los cables por dentro, y 
la 3 el aspecto que ofrece el conector Foto 1. Aspecto de un paddle de mando único. 




Figura 1. Diagrama de conexión del paddle doble, 



Figura 2. Diagrama de conexión de los dos paddles 
independientes. 
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Te ofrecemos el mueble ideal para 
que trabajes cómodamente, además 
de la más extensa gama de Software 
y ordenadores personales 
del mercado. 

ii VISITANOS...!! 


SOFTURRE 

EERTER 


Avda. M istra UO, T D, esc Izq. 

Tel (93)432 07 31- BARCELONA 15 



85cm 

P.V.R 8.000.- ptas 

























































tipo D de 9 contactos, que utilizamos 
para conectar este accesorio al Vic-20 
o el C-64. 

Si optamos por el doble paddle , ti¬ 


po joystick , debemos localizar en el 
comercio el montaje mecánico ade¬ 
cuado. Es el mismo tipo que los em¬ 
pleados en los sistemas de radiocon- 


trol. Varios son los aspectos que pue¬ 
den ofrecer; en la foto 4 y en la 5 ofre¬ 
cemos dos versiones distintas, aunque 
en realidad es el mismo componente. 



Foto 2. Conexión de los cables al potenciómetro. 


Foto 3. Conector tipo D de 9 patillas. 
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KEY INFORMATICA, Embajadores, 90 (Madrid) -Tfno.: 227 09 80 - 227 91 99 


























































































Ha seleccionado para usted cuatro excelentes programas de juego para su ordenador VIC-20. 


Diviértase con ellos y, además, ahorre dinero con esta oferta única y exclusiva nara los 
lectores de esta revista. 



CREEPERS 

Controlas al último guerrero que 
defiende la alimentación de 
energía de las ciudades 
subterráneas. Los invasores se 
agarran al tejado, encima de tí, y 
procuran controlar los bloques de 
energía. Si lo logran, los bloques de 
una zona se convierten en mutantes 
y se alojan en ti. Los nervios y los 
reflejos son vitales. Te estás jugando 
el todo o nada. 

Precio: 1.350 ptas. 



“ eeceec "**¥ ««««•® " 


ENVAHI 

Arriba, sobre la ciudad de Envahi, 
está la presa que alimenta de 
energía y agua a sus habitantes. 

Tú estás controlando un helicóptero 
armado que patrulla el cielo para 
protegerla de los truhanes que 
vienen decididos a destruirla. No es 
todo: el velero comilón cruza desde 
el este y de unos pocos mordiscos 
puede deshacer la presa e inundar 
la ciudad. Ah ¡No olvides tu 
paraguas: puede ser útil! 

Precio: 1.350 ptas. 


MISSION MERCURY 

La Agencia Tierra Espacio acaba de 
anunciar que se ha perdido toda la 
vida en Mercurio, cuando se recibe 
un dramático SOS desde el planeta. 
Como eres el astronáuta más 
experimentado, te escogen para 
organizar la misión de rescate. 
“Estación Mercurio llamando al 
equipo de rescate... fábrica de 
caminos para lanzaderas... 
desestabilizado... aterrizar 
solamente una vez...". De prisa, 
no tienes tiempo que perder. 

Precio: 1.350 ptas. 



SNOOKER 

No confundirse. Snooker es sólo 
aparentemente un juego de billar. 
En la práctica es mucho más, 
un medio para desarrollar el 
concepto y la visión del espacio. 
Pocos programas son tan adecuados 
como éste para adquirir la 
coordinación de velocidad, ángulos 
e intersecciones. Usted puede 
tomárselo como quiera: como un 
billar (¿por qué no?) o como una 
clase práctica de física y 
geometría aplicadas. 
Precio: 1.350 ptas. 



Usted puede comprar cualquiera 
de estos cassettes a su precio 
individual de 1.350 Ptas. 

Pero también puede adquirir el 
lote de 4 por sólo 4.050 Ptas. 
y AHORRARSE 1.350 Ptas. 

O sea, cuatro cassettes por e^l 
precio de tres. Aproveche e^ 
oferta limitada. 


Recorte y envíe este cupón HOY MISMO a: 

INFODIS, S.A. 

Bravo Murillo, 377-5.°-A 
28020 MADRID 


I 


Envíenme a mi domicilio, al precio de 1.350 Ptas. cada una, más 95 Ptas. de gastos, la cassette o 
cassettes que le indico a continüación marcando con una (X) en el casillero correspondiente. 
Queda bien entendido que pidiendo las 4 cassettes obtengo un ahorro de 1.350 Ptas., lo que me 
supone UNA CASSETTE GRATIS (Sólo pagaré 4.050 Ptas. más 95 Ptas. por gastos de envío). 

J CREEPERS □ ENVAHI □ MISSION MERCURY □ SNOOKER 

□ Las 4 cassettes, en las ventajosas condiciones de AHORRO para mí (4.050 Ptas.j 

El importe lo abonaré: 

POR CHEQUE □ CONTRA REEMBOLSO □ CON TARJETA DE CREDITO □ 

American Express □ Visa □ Interbank □ Fecha de caducidad 

Número de mi Tarjeta 1 11 1 II 1 1 11 1 11 I _ 

Nombre . ... 

Dirección ___ 

Ciudad _____ ¡yp _ 

Provincia ____ 

Cada envío llevará 95 Ptas. en concepto de gastos. 



























































Tal vez sea difícil localizar uno que 
tenga los potenciómetros del valor 
que necesitamos, 470 Kohmios en to¬ 
dos los casos. En tal circunstancia lo 
apropiado será buscar un modelo que 
nos permita cambiar los potencióme¬ 
tros del valor original por el que se 
adecúa a nuestras necesidades. Si el 
valor del potenciómetro fuera menor, 
no alcanzaremos a los valores supe¬ 
riores del rango posible, aunque ha¬ 
gamos el giro completo. Por el con-- 
trario, si el potenciómetro es de ma¬ 


yor valor, recorreremos toda la gama 
de valores posibles en la lectura del 
paddle antes de alcanzar el límite del 
giro. De todas maneras, como el po¬ 
tenciómetro no llegaría a girar los 
270° totales, el valor deberá ser ma¬ 
yor. 

Una vez realizado el montaje per¬ 
tinente, siguiendo las fotos y figuras 
del artículo, solamente nos queda ver 
cómo funciona. Recordemos una vez 
más que el mismo montaje es válido 
tanto para el Vic-20 como para el 64. 


También conviene hacer hincapié en 
que el diagrama del conector del port 
de control muestra la numeración de 
sus patillas viéndolo de frente, por 
tanto, debemos tenerlo en cuenta pa¬ 
ra hacer que cada cable del paddle va¬ 
ya al lugar adecuado, de lo contrario, 
lógicamente, no funcionará. 

En el Vic-20 es utilizado chip VIA 
6522 para leer el valor de los poten¬ 
ciómetros. En la dirección 36872 se al¬ 
macena el valor del potenciómetro X 
y la 36873 la del potenciómetro Y. 


í 6 y 

REM ###########*###$ 


110 

REM # PñDDLES 64 * 


120 

REM ################ 


1 y y 

t :EM 


1 600 

REM #CftRGfl DEL SPRITE# 


10 i 0 

POR NUM-0 10 63 


i 020 

REfiD SPR 


1 y ¡4 y 

FQKEí13#64)+NUM>SPR 


i y 4S 

NEXT HUM 


X 0 o y 

PQKE 2040 .i 13 


1060 

REM_*DñTfiS DEL SPR ¡TE# 


1070 

Dh i ñy.. y .• 0 .. 0 .. 0,0 


1 y y y 

DríTfi 1.. 0.. 12S.» 3 / 144., i 23 


1839 

.Ü n i H O .* cL 5 4 .« .1 cí y .• O .• el 0 O .» i 2 y 


1335 

BfiTfi 3 .• 255 .■ 123.. 7 , 255 ¿ 132 


i 160 

Bfi T R47 > 255 , 232.« 63.» 255 .• 248 


1 1 i 3 

Dril fls- { } 2 -3-j .» 2 ó 2 .» 0 .* 2 5 4 .• 8 


i 128 

BfiTfi7.« 255 .• 192 .• 3.« 255 .■ 128 


i í 33 

Bfi 1 H i.«-zí o d * 8 .• 7 / 14 7.« 192 


1 i 40 

Bfi i fi 12.» 16.» 96 .* 8.« 16 .• 32 


1150 

BFi i Ryi 6 .r 32 .• 28.» 56 > 112 


1160 

BfiTñ0.» 0.» 0.. 0 


1 200 

R E i v i # 3 E L. E C C 1 0 N D E L C 0 L 0 E # 


1210 

P0KE53287•1 


1 300 

REíl #fiCT 1 VflR SPR I TE# 


i 310 

P 0 K E53269 .• P E E K í53269 ) O F; i 


1 4 0 ¡¿i 

Rfc.í'1 #LEU 1 Ukñ DE uri COORBEHñBR X# 


1410 

•7 0~2 # P E E K (54298 ) ; P O K E53248.« (X 0 fi N B255 > : 


1420 

PURE53264 .• F’EEK í 56234 ) fiNB (255+ (X0C256 ) ) 

0 & R B o \ A U J ; * 25 5 ') 

1588 

REri #LEU ¡ ükfl BE Lfi COORBENPDR V# 


i 510 

V 0 ~ P E E K < 54297 > ; p U K E53249.» V O 


1520 

rORfi-i JO 50 ; NEXTfi 


i 530 

GOTO1480 



Figura 4. Programa para el C-64. 


•jo oommodor* 

_ J*lag¿izln£_ 
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Obteniendo en ellos valores compren¬ 
didos entre 0 y 255, según la posición 
del paddle. Pero también es necesario 
establecer los valores adecuados en el 



Figura 5. Numeración de los terminales 
del port de control, visto de frente. 


tos, que controla si los datos que nos 
interesan entran o salen del ordena- 

F’RTILLR 

VIC 28 

CBM 

-64 

dor. 

Así, ésta breve rutina nos dará una 
idea del funcionamiento: 


PORT 

PORT 1 

PORT ; 

1 

JOV 0 

JOV 60 

JÜV B0 

10 POKE 37139, 0: REM DDR PORT A 

20 POKE 37154, 127: REM DDR PORT B 

% 

JOV 1 

JOV ñl 

JÜV R1 

30 PRINT PEEK (36872); “ PEEK (36873) 

40 GOTO 20 

3 

JOV 2 

JOV F¡2 

JÜV B2 

visualizando los consecutivos valores 

4 

JÜV 3 

JOV 63 

JÜV B3 

que van proporcionando los paddles 
en su movimiento. 

5 

PÜT V 

POT 6V 

PÜT BV 

Los botones de fuego se leen de la 

6 

LRPI2 OPTICO 

BOTON fi/L.O. 

BOTON B 


mera parte con los joysticks. 

En el caso del C-64, los paddles son 
leídos por medio del chip de sonido 
SID, utilizándose direcciones de me- 


+5V 
MRSR 
PÜT X 


+5V 
MRSR 
PÜT RX 


+5V 
MRSR 
POT BX 


— DISCOSOFT-64 — 

Los mejores programas para su Commodore 64 en discos, al mejor precio 


DISCO 1 

— JUMPMAN (30 pantallas), FUTBOL (2 jugado¬ 
res). P.V.P. 4.000 ptas. 

DISCO 2 

— REVENGE MUTANT CAMELS, MANIO Ml- 
NER, HUNCHBACH, PIPELINE (de 15 a 30 
pantallas cada uno). P.V.P. 4.000 ptas. 

DISCO 3 

— SIMULADOR DE VUELO F.S.II. (vuelo real), 
manual en castellano. P.V.P. 6.000 ptas. 

DISCO 4 

— ULTRABASIC (50 comandos adicionales grá¬ 
ficos y sonido), manual en castellano. 

P.V.P. 5.000 ptas. 

DISCO 5 

— Tres juegos de Matemáticas para niños. 
P.V.P. 3.000 ptas. 


DISCO 6 

— ZEPPELIN (Laberinto), ZAXXON (en 3D) ZO- 
DIAC, BLUEMAX. P.V.P. 4.000 ptas. 

DISCO 7 

— TRENES, Espectaculares gráficos y sonidos 
(Juego de inteligencia). P.V.P. 4.000 ptas. 

DISCO 8 

— ALICIA (juego de habilidad en dibujos ani¬ 
mados). P.V.P. 5.000 ptas. 

DISCO 9 

— STRIP-POKER (Juegos al Poker, con una 
bonita señorita). P.V.P. 5.000 ptas. 

DISCO 10 

— JUEGOS OLIMPICOS (los dos mejores jue¬ 

gos de Olimpiada de ESTADOS UNIDOS) 
P.V.P. 5.000 ptas. _ 

LOS 10 DISCOS, 30.000 PTAS. 


Pedidos contra reembolso a: 

DISCOSOFT-64. Apartado 9068 - 08080-BARCELQNA (Programas garantizados sin gastos de envío) 





moria que corresponden a registros 
del mismo. Aquí, la dirección de me¬ 
moria 54297 se encarga de leer el po¬ 
tenciómetro X, mientras que la 54298 
lo hace con el potenciómetro Y. Esta 
breve rutina leerá sucesivamente los 
valores proporcionados por uno. y 



otro: 

10 POKE 56320, 128 

20 PRINT PEER (54297); “ PEER (54298) 
30 GOTO 20 

y visualizará valores entre 0 y 255 en 
ambas columnas. Para detener la eje¬ 
cución habrá que recurrir a las teclas 


Run/Stop y Restore simultáneamente. 

Los dos cortos programas de las fi¬ 
guras muestran en la 3 una demostra¬ 
ción de posibilidades con el Vic-20 y 
en la 4 con el C-64. En futuros ar¬ 
tículos se presentarán nuevos progra¬ 
mas adecuados a joysticks y paddles. 



Foto 4. Paddle doble, un modelo comercializado. Foto 5. Otro modelo de paddle doble y suconexión 


¡INCREIBLES TARJETAS 
PARA COMMODORE64 Y VIC-20 

DE 80 COLUMNAS 

LA TARJETA DE 64K ES LA PERFECTA COMBINACION PARA LA TARJETA DE 40/80 COLUMNAS: 

— Puede usooger «ntre 22/40/ti0 columnas y obtiene 31743 bytes libres!!! 

— El sotware del EPROM de la tarjeta le permite utilizar todos los comandos de ficheros (OPEN, CLOSE, PRINT, INPUT. GE T 
SAVE and LOAD) con los 31232 Bytes de Memoria «oculta», lo que produce la sensación de que hay 8 cassettes super rápidos 
conectados a su Vic 20 Imagínese . menos de 1 segundo para guardar 28 Kü! 



• Tarjeta VIC-20 40/80 columnas 


• Tarjeta COMMODORE 64 
80 columnas 

• Tarjeta VIC-20 
Ampliación de memoria 
64 K- RAM 

• Slots de expansión 
para VIC-20 y 64 

de 2 y 5 para conexión 
de tarjetas 



DISTRIBUIDORES PARA TODA ESPAÑA 

PEDIDOS 


FCRPE -mORET /.R. 


Tuset n.° 8, entlo. 2.° Tel. 218 02 93 
Escribir indicando la sección 
BARCELONA 08006 














































Que sepa mucho de ordenadores. 

Que esté dispuesto a jugar y a enseñarnos. 

Ya puedes encontrarlo, a partir de noviembre, 
en todos los quioscos. 

Se llama Y te dará 116 páginas de juegos, 

programas, diccionario de informática, 

cómics, avenluras y todo para tu ordenador. Quiérelo. 


“el amigo de tu ordenador? 

Una revista-libro diferente, para 
los nuevos genios de la informática. 














































Ahora que llega el frío se nos ha 
ocurrido que puede ser muy agrada¬ 
ble jugar con este programa llamado 
WINDSURF, que nos remite Ignacio 
Ortega Ortigosa desde Algeciras, y re¬ 
cordar los buenos días de playa de este 
pasado verano durante los cuales, más 
de uno se habrá pasado horas luchan¬ 
do contra las olas con su tabla de 
mndsurf. 

El programa es la historia de un in¬ 
trépido windsurfer que acude en so¬ 
corro del torrero de un faro. Después 
de varios días de furioso temporal, el 
torrero se ha quedado sin provisiones, 
y tú, el « windsurfer », has decidido 
acudir en su ayuda por lo que vas a 
intentar llegar hasta el faro en tu vela 
que manejarás con un joystick conec¬ 
tado al port 2. 

Dos peligros se ciernen sobre ti: el 
primero de ellos es el fuerte oleaje de 
la zona que hará que, si eres alcanza¬ 
do por la rompiente, tengas que co¬ 
menzar de nuevo la travesía. El segun¬ 
do es un poco más siniestro pues re¬ 
sulta que la zona está llenita de tibu¬ 
rones con hambre de varios días, que 
te atacarán cuando menos te lo espe¬ 
res. 

El faro lanza destellos de luz roja 
que te servirán de guía y te avisarán 
del peligro. 

Tu tabla es fuerte, pero si te caes 
muchas veces acabará por romperse 
con lo que quedarás eliminado y a 
merced de los tiburones. 




Las líneas que siguen son una des¬ 
cripción de la estructura del progra¬ 
ma: 





9 — 

10 • 50 Pantalla y cons¬ 
tantes 

55 — 


Apaga destellos 

60 — 

120 

Rutina oleaje 

130 — 


Anulación Sprites 

140 — 

170 

Finales varios 

210 — 

320 

Joystick y colisio¬ 
nes 

500 - 


Tabla a su origen 
y restaura colisión 

510 — 

590 

Rutina final 

600 — 

695 

Activa sprites 

700 - 

790 

Niveles de juego 

1000—, 

1014 

Información digi¬ 
tal dibujos 


10 

50 

55 

58 

60 


rem **mM**wmm+**m**Mm *******+^^********************* 
REM * * 

REM * WINDSURF POR ORTEGñ #1984 * 

REM * * 

rem **m****M**M**M********M***mMMMMMmM***+*M** 

POKE53230,6 : P0KE53281 .* 6: PRINT'ü" 

TX=2¿¿0 : TV= 1 c¡0 : V=53248 ; GOSUB706 : GÜSUB600 
PRINT" ¡T :CT=6:TI"000000" 

PGKE C V+21), F'EEK < V+21 > AND < 255-2 T3 > 

TX=INT C150#RND(1))+80 : TV®INT C156*RND <1)>+80 
FORL=0TOCT 
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O 

O 

O 

O 

O 

O 
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6b GÜSUB210 

70 PRiNr'^ww"; 

80 FOR 1 = 1 TOVE : NEX71.« L 
85 CñaNT<6#RND<l))+l 

90 FÜRL- 1 TOCñ : F'ÜKE < V+2 í >, PEEK < V+2 í > OR < 2T3 > • F’R I NT' 

95 I FCT>20THENPR I NT mmmmOBi " • PRI NT 

100 CT-CT+1: GM=CT# 16=1 FCT-23THENCT-6 
1í8 NEXT 
120 G0T055 

130 FORL= 1TÜ5 : POKE < V+21 >, PEEK < V+21 > RND < 255-2 TL > : NEXT: RETURN 
140 GOSUB130 : PR I NT ,! 7j' : TftB <7 > " 3UNOTOR" SC 15 CHflFUZQNESTTTTT : RETURN 
150 GOSUB 130 : PR I NT " 51" TñB < 7 ) " fflHMMBia LO CGNSEGUISTE T7TTT •* RETURN 
160 GOSUB 130 • PR I NT" ¡T TñB (7 > M m*m Ü i ! MENUDO MORDI SCO i ! !! 

170 PRINTTñBC6 ) "WESTÑ CLñRO QUE HñS PERDI DOTTTTTTT :RETURN 
210 ñ=PEEKC56328 > ; ñ=<NQT Cñ> >ÑND3í 

215 IFPEEK< V+31 > »2THENX=240 : V=50 : SC=SC+1 • IFSOCSTHENGOSUB140: GOTO500 

2 16 IFPEEK í V+30>=6THENG0SUB150 GOTÜ500 

217 IFPEEK<V+30> = 18THENG0SUB160 ; GOTO500 
213 IFPEEK(V+30>«34THENG0SUB160:GOTO500 
220 I FñflND 1 THENY-V-VA: TX=TX-4 •' I FTX<50THENTX=50 
222 CM=CM-2 : IFCM<60THENCM~220 
238 IFV<50THENV=50 

240 IFRÑND2THENV~V+Vñ:TX«TX-4 ; IFTX<50THENTX«50 
250 IFV>231THENV=231 

260 IFññND4THENX*X-Vfi ; iX s TX-4 ; IFTX<50THENTX=50 
270 i FX<20THENX=20 

230 IFññND8THENX®X+Vfl : TX*TX-4 ; IFTX<50THENTX=50 
290 IFX>240THENX=240 
300 POKE V+2, X • POKEV+3 .• TX ; POKEV+1G, CM 
310 POKEV+3, V : POKEV+9, TV: P0KEV+11 .* CM 
320 RETURN 

500 POKE V+2.. 240: POKEV+3,50: POKE ( V+30 >, 0 

510 PRINT"W9íMUUEGO TERMINADO EN" 

520 PRINT"» "MID$í:TI$,3,2>; " MINUTOS 

530 PR I NT" M " RIGHT $ < TI $ .■ 2 >; H SEGUNGOS 

550 PRINT"W a OTRO JUEGO ? <S/N> Si" 

560 GETW$:IFW$<>"S"RNDW$<>"N"THEN560 
570 IFW$-"S"THENGOSUB130 : RUN10 

588 I FU$=" N" THENGOSUB 130 = PR I NT" MMHlHUiiiiiRSENTONCES- 

590 PR I NT" WHWPON ñ SECAR Lfl VELñ’’ • END 
600 X*240 : V=50 
610 IFMñ~1THENPÜKEV+21,30 
615 IFMfl=20RMñ=3THENP0KE l V+21.62 

620 POKE2041,13 ; POKE2042.. 14 : POKE2043, 15 : POKE2044, 11 • PQKE2045,11 

621 : 

622 : 

623 •• 

624 : 

625 : 

630 F0RS«832T0894 ; RERDQ ; F’GKES, Q : NEXT 
640 F0RS=836T0358•REñDW•POKES,W:NEXT 
650 FORS-960TO1022:RERDQ1 : P0KE3,Q1=NEXT 
655 FORS-704TO766=REñDQ2 : POKES,Q2:NEXT 
660 POKE V+2, X: POKEV+3 .• V 
670 POKEV+4,25:POKEV+5,128 
680 POKEV+6,45•POKEV+7,120 

683 POKEV+8.. TX: POKEV+9, TX: POKEV+10, TV : POKEV+11; TV 
685 POKEV+29,8 

690 POKEV+40,4: POKEV+41^7 = POKEV+42.« 10 : POKEV+43 •• 0 • POKEV+44,0 
685 RETI IRN 

700 FRIÑTTHB(17)“ rHWBOPGRfiDO BE BIFICULTflB" 

710 PRINTTRB< 21>"HM1 MRREJñBñ" 
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720 PRINTTfiB(21>" m¿ FUERTE MflREJfiDfi" 

730 PR I N'VTRB ( 21 > :1 &K3 i v IRR GRUESA !i 

740 PR I MITRE: (21 > " JffiT; • INPUT i: CURL EL 1GES.; MR 

750 IFMR<1ÜRMR>3THEM700 

760 IFMfl*1THENVE=100:VFf* 8 :CS=5 

770 IFMR~2THENVE- 50 : Vfl=7 • CS«7 

730 iFMfl=3THENVE=2 : Vfi= 6 :CS=3 

730 RETURN 

1 0Ü0 DRTR0, 64, 0 , 0 , 36, 0 .. 0 , 112 , 0 , 0 , 120.• 0 , 0 , 124, 0 , 0 , i 26, 0 , @, i 27, 0 , 0 , 127 

1001 DRTR0, 127, 132.• 6, 127,224,0, 127, 240.■ 0, 255, 252.• 0, 127.. 240.0.137*. 12fi 

1002 HRTR0.. 36 ,0,0, 64,8, 127, 255,254,8, 1 i 2 ,4, 8 , 48,8, g, i s , 8 

í 805 Dfi IR 8 24.. ü.. 0 .. 24.. 0 .. 0 .. 60.. 8 .. 8 .. 36 .• 8 , 8 .. 36 .' 0,8 .< 182 , 0 .• 8 .. 126 .■ 8 .. 8126 .• 8 

1086 DR TR 8 , 66 , 8 .. 8 .. 66 .< 8 .. 8 .. 66 , 8 .< 8 .. 66 .* 8 .■ 8 .. 66 .• 8 .• 8 .. 668 

1087 l'JRTR 8 , 126 , 0 , 8 , i 26.. 8 , 8,126,8.. 8.126 ■ 8.0.126-8 

1088 DRTR3,255,132,3,255, 132 

1810 DR 1 R 8,0 .. 0 , 0 .. 0 .. 0 .. 0 , 000 , g f 3 , 0 , 0 ; : ¡ fj, $\ , ¡; : ¡, f-j, 3 , ^ p¡ 


128 

8,124,0 


1012 HATR0,7,255,15,255,255,255,255,255,1,255,255,0,1,255 
1 0 1 4 Dñl R0, 0,0 , 0 , 0,0, 0, 0, 0, 0, 0., 00., 0,0 f 0,0,0 , Q , 0 , @ , Q , 0 , Q 

1 ®\F8 •' 8 •' 8 * 8, 8 , 8, 0, 0 , 0, 0 , 0, 0 , 0 , 0 0 , 00,0 0. 0 , 0 ,0,0, 0 ,0,0,0 , 0 , 0 , 0 ,0, 0 , 0 , 0 , 0 
1 822 BRTR8, 0 ,8, 0 , 0 , 0 , 0 , 0, 0 , 0 , 3 50 , @ t g , 112,0 . 0,240,8,15.242 ,8 
1824 URTR 111,255,1 33 ,255,255, 255 



MINAS OCULTAS es un juego 
para el VIC 20 que ha enviado a con¬ 
curso Carlos Plumed. El juego con¬ 
siste en desplazarse por la pantalla 
mediante las teclas I, J, K, M, con el 
fin de recoger 15 «corazones» que se 
encuentran distribuidos aleatoriamen¬ 
te. En cada una de las diversas pan¬ 
tallas en que se desarrolla el juego hay 
un cierto número de minas ocultas, 
número que depende de la pantalla y 
del nivel de juego elegido (1 = fácil, 
3 = difícil). Cuando se tenga la ma¬ 
la suerte de tropezar con una mina se 
perderá una de vida de las tres de que 
se dispone inicialmente. 

Para la recogida de los corazones 
se dispone de dos «artilugios» o in¬ 
ventos que se accionan mediante las 
teclas de función F1 y F7. F1 contro¬ 
la algo así como un «aparato para sal¬ 
tar» que permite realizar saltos largos 
y aleatorios y que puede utilizarse pa¬ 
ra acercarse a los corazones más rá¬ 
pidamente. 

Si al dar el salto se cae encima de 
una mina pues «bum», se pierde una 
vida. Además durante el salto se deja 


una traza o rastro en la pantalla que 
si se vuelve a tocar restará puntos. 

La tecla F7 sirve para accionar el 
«desactivador automático de minas». 
Su accionamiento elimina cualquier 
mina que hubiera en las casillas ad¬ 
yacentes a la del j"g°dor y aumenta 
la puntuación. Sólo se puede accio¬ 
nar cinco veces por cada pantalla y su 
empleo llena de asteriscos todas las 
casillas adyacentes a la del jugador. 

La recogida de corazones debe ha¬ 
cerse en un minuto por lo que es pre¬ 
ciso actuar con rapidez y contar con 
buena suerte. 

Para los que quieran meterse en 
modificaciones y mejoras adjuntamos 
unas líneas describiendo la estructu¬ 
ra del programa: 


12 — Datos para localizar 

las ocho casillas ad¬ 
yacentes 

20 — Inicialización vidas, 

antiminas y comien¬ 
zo de la primera 
pantalla 


Salto a subrutina 
instrucciones 
160 Sitúa espacios en 
blanco (de 13 a 19 
según nivel) 

172 Colocan 15 minas 
aleatoriamente 
Colocación del ju¬ 
gador 

179 Comprueba vidas y 
tiempo 

195 Movimiento elegido, 
Fl, F7, I, J, K, M, 
Resultado del movi¬ 
miento 

Sitúa un círculo en 
las posiciones ya 
ocupadas 
2999 — 3200 Fin de juego 

Subrutinas: 

500 — Antiminas 
2000— Cambio de pantalla y rei¬ 
nicio del juego 

5000— Instrucciones y elección de 
nivel 

7000— Sonido 

9000— Explora y dibuja sobre la 
pantalla 


22 — 
130 — 

170 — 

173 — 

174 — 
190 — 
200 — 
220 — 


oo oomm o dor> 
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0 rem################ 

1 REM# * 

2 REM# MINRS'OCULTOS# 


REM# 

REM# 

REM# 

REM# 

REM# 

REM# 


DE 


CARLOS 


# 

* 

# 

# 

# 

# 


PREMIADO CON 

PESETAS 




PLUMED 

9 REM################ 

12 DATA~22 .■ ~2 1,1, 23 .• 22, 2 i .» - i .< —23 

13 FORN-1TOS : RE ADX<N >:NEXT 

20 PR i NT" 21" : PÜKE36373.. 23 : PÜKE3637S, i !;•: 2Q= 10 • V-3 : M-5 : I 
22 GOSUB5000 

25 PR I NT" Tttl .ílWMílMeüí Mi# PAN TALLA-HT : FORN-1TO2500: NEXT 
100 PRINT'TJ" 

130 F0RN-1T0ZQ 

140 P— IN1 RNDí .•* #484 ) +7702 V—30720+F 
í 4i IFPEEK<P)-36THEN140 
150 POKER,3b 
160 NEXT 

170 F0RN-1T015 

171 ñ=INT<RND C1)*484> +7702:K=fl+3072@■IFPEEK<fi)=86 ÜR F'EEK< R >=65 THEN 171 
1 72 POKEfl .■ 65 : F'OKEK .■ 2 : NEXT 

173 8= IN1 ( RND < 1)*484 > +7702 : J=G+30720 : IF F’EEK ( Q ) =860RPEEK < G > =65THEN 173 

174 F'OKEG.. 160: FOKEJ, 6: TI $= " @00000" 

176 H=0 ; 8=58-VñL <TI $ > 

177 IF S<10THEN L=1 

178 PRINT"ÍÜVID="V"M= "MTIME*"SPCÍL)S : IFV< 1 GR3< 1THEN2S88 

180 GET: IFfi*= "II"flNDM>0fiNDG<8i S3ÑNDO7724THENGOSÜB500 

181 THEN H=INT(RND< 1 >*484>+7702-8 ; GOTO 200 
182' IFfi$='’ I "THENH=-22 : GOTG200 

183 IFft$="K"THENH=1:GOTO200 

184 IF fl$="M" THENH=22 : GOTO 2G0 

185 THEN H=-i : GGTG 200 
13b GOTO 17b 

200 IF U+H_>tí 185ÜRG+H<17702THENGpT 017' 6 

X0X í FPEEK (ü+H> -96THENP0KEJ+H, 0 •' POKEG+H, 86 •' PÜKE36677230 ; FÜRHJ- i T u 1500 : NEXT 

263 IFPtEK (G+H)-8bTHENV-V-1 ; FF-100 : PGKE36877,0- GOTÜ220 

285 I FPEEK C G+H > «32THENP0KE36874,236 : F-F + :i 0: P0KE363740 ; GGTO220 

20 y IFPEEK í. G+H-y 7 THENPOKE36875,230 ; F"~F~25 : POKE36875,0 : GÜTG220 

??? IFPEEK<G+H>*65THENP0KE36876,230 ; F-F+100:PGKE36876,0 ; SD : =SB+i : IF3D-15THEN 2000 

220 POKEJ,0 : PüKEJ+H,6 ; FÜKEG,87 ; POKEG+H,160 : G-G+H : J-J+H : GOTO176 

500 P O K E36875 .■ 12 8 •' F Ü R G H -1T O 5 0 G ; N E X T ; P Ü K E36375, Ü 

510 F0RZ-1T08 

520 IF P E E K ( G+X < 2) ) - 6 5 T Fí E N 5 3 O 

52'2 I FPEEK < G+X (Z ) ) -96THENPÜKEJ+X (Z > , 0 : PÜKEG+X (Z >, 86 ; GOSUB1000 ; F’ÜKE J+X < Z ), 4 •' F=F+5 
0 

525 P O K E J+X < Z ') , 2 ; P O K E G+X < Z >4 2 
530 NEXT 

540 M~M~1 : RETURN 

1000 F ÜRN-255T0128STEF-í ; PÜKE36875,3•PÜKE3687U,N : NEXT ; PÜKE36875,0:RETURN 
2008 HT-HT+1 : L-0 • GÜSÜB3000 ; PR I NT" LTSWIiFUNTOS-" F • ZG-ZG+RT : SD=0 •' M=5: V=3 : GOSUB700A 
210 0 F Ü R Ni T O500 ; N E X T : G Ü T G 2 5 
233 3 G O S U B3000 

3000 IFS< 1THENPR¡NT¡JOMTOSE TE HCHBÜ EL TIEMPO" 

3100 IFV< 1 THENPR I NT" TMíMiüi SE TE ACABO L.A VIDA" 

3150 PR I NT"!W!MüVi É ® • P U N TGS-" F 

320U HT-1 ; L«0 ; 2Q-10 : F~0 • V-3 ; M-5 : SD-Ü ; FORN» 1TO2500 : NEXT ; PR i NT" 2T : GÜS¡ IB60A0 : GHT025 
5000 GOSUB 7000 " 

5100 PRINT ,: 3¡S### MINAS OCULTAS ###" 

•5101 PRINT-'PRINi"TIENES QUE COGER 15 

5102 PRINT"PUEDES CHOCARTE CON MINAS QUE TE HARAN PERDER VIDAS" 
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5103 

3104 

3105 

5106 

5107 

5110 
PACIO 

5111 


Viene de la página antei ior 

p RINTDISPONES DE: 1 MINUTO,3 VIDAS V 3 ANTIMINAS POR PANTALLA" 

PEÍ NI 

F’RINI " EL AHI I MINAS BUSCA MINAS A TU ALREDEDOR" 

PRINT 

PRINT" PUEDES COLOCARTE EN OTRO SITIO DE LA PAN-TALLA APRETANDO Fl" 
jP^INT : PRINT"HAS DE MOVER : I-ARRIBA : K-DERECHA : M-ABAJO : J~IZQUIERDA : Fl-HIPEE ES 

FRINT"F7-AHTI MINAS" 

PRINT"PULSA PARA EMPEZAR" 

GETFR$ ; IFFR$=""THEN51 39 

GOSUB6000 

RETURN 

pr i nt n i ge n i vel < i -s > n 

PRINT"WWM A MAVOR NIVEL MAYOR DIFICULTAD" 

GETAG$ ; IFAG$=""THEN6820 

RT-VALíAG$):IF RT>30RRT<1THEN6620 

RT=RT*3 

RETURN 

FGRN-255T 0128STEP-.5 : P0KE36875,3 : P0KE36875,N ; NEXT ; PÜKE36875,0 : RETI IRN 
FOR N=7702TO8185 

IFPEEK<N> ss 96THENP0KEN.. 86 ; POKEN+3072A . A 
NEXT 

FORM-1T07000:NEXT 
RETURN 


DISTRIBUIDORES 


SPECTRUM 
Y COMMODORE 

Como importadora de Commodore y Spectrum 
les ofrecemos los mejores precios del mercado. 


“COMPRUEBELO” 


QL 128 K CON SOFTWARE EN EXISTENCIA. 

OFERTA MUY ESPECIAL PARA ZX 48 Y COMMODORE 
CON SUS APARATOS PERIFERICOS EN NOVIEMBRE 84 

Envíos en toda España. 

Entrega dentro 48 horas. 
Garantía: 6 y 12 meses. 


CONSULTENOS: 


LOBERSA 

Málaga, telf. (952) 44 82 64 / 21 12 91 
Avda. de Andalucía. 11. 1. a Telex 77 480 


ANUNCIESE 

por 

MODULOS 


MADRID 

(91)7339662 

BARCELONA 

(93)3014700 


OOOOOOOOOOOOOOOOOOOOOOOOí 













Araña nos lo envía Juan Luis Ruiz, 
desde Burgos. Se trata de un juego pa¬ 
ra el C-64 en el que el jugador tiene 
que hacer de cazador de arañas. Las 
arañas van descolgándose mediante 
un hilillo de tela de araña desde el te¬ 
cho de la habitación. El jugador, que 
puede desplazarse por el suelo de la 
habitación de izquierda a derecha, dis¬ 
pone de una pistola de matar arañas 
con la que debe evitar que ninguna 
araña llegue al suelo. El número de 
disparos, que se realizan con la barra 
de espacios, es ilimitado, de este mo¬ 
do, el juego consiste en tener a las ara¬ 
ñas a raya el mayor tiempo posible, 


anticipándose a sus movimientos. Las 
instrucciones completas para jugar 
van incluidas en el propio programa. 

El programa está estructurado de la 
siguiente manera: 


210 — 510 Mensaje de comien¬ 
zo del juego 

610 — 1310 Rutina de caracteres 
programables 

1410 — 1640 Inicializa sonido y 
primer efecto sono¬ 
ro 


m 

* 



1650 — 2010 Mensaje de las teclas 
a pulsar 

2100 — 2710 Rutina de dibujo de 
pantalla 

2810 — 2820 Dimensiona matriz, 
inicializa variables y 
activa modo 

3010 — 3310 Analizadla entrada 
de información 

3400 — 3720 Efecto sonoro y des¬ 
plazamiento del rayo 

3810 —4010 Rutina de puntua¬ 
ción y arañas caza¬ 
das 

4110 — 4210 Desplazamiento del 
disparador láser 

4310 — 4810 Movimiento aleato¬ 
rio de las arañas 

4900— 5310 Efecto sonoro, eva¬ 
luación y mensaje 
fin de juego 




0 1 

10 

REM 


CBM 64 

! o 

o 1 

20 

REM 

** m 


o 

o 

30 

REM 

** - ** 


1 o 

O 1 

40 

REM 

** ARA N A s m 


1 o 

o 1 

50 

REM 
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60 
70 
80 
110 
210 
310 
410 
510 
610 
710 
810 
810 
1010 
1110 
1210 
1310 
1410 
1510 
1618 
1615 
1620 
1625 
1630 
1640 
1650 
1710 
1720 
1750 
1760 
1770 
1810 


REM 
REM 
REM 

GGSUB1710 : PÜKE53280, 6 : F0KE53281 .• 6 
PRINTLEFT$<ñ$; 7) "íiülESTE PROGRAMA BE LRS 
F’RINT"MMTRRDflRfi 15 SG. EN ESTftR PREPARADO." 
PRINT"M*HASTA ENTONCES, RELAJESE, UN SONIDO 
PRINT"WWflVISARA CUANDO ESTE LISTO EL JUEGO." 
P0KE56334, F’EEK < 56334 > AND254 • F0KE1, PEEKÍ1 >AND251 
FORI-0TO63•FORJ-0TO7 
F’OKE 12288+1 *8+J, PEEK ( 53248+1 *8+J > 

NEXTJiI 

F’OKE 1 > PEEK(1 >0R4: P0KE56334, PEEK(56334>ORI 
F0KE53272,(PEEK(53272)AND240>+12 
F ORCA=58T063 : FORBV=0TO7 
RE ADNU : F’OKE 12288+ ( 8#CA ) +BV, NU: NEXTBV, C A 
GOSUB1720 


'■ARANrihWñSIK 

LE" 


I- : P0KE54278,64 : PÜKED4276. 
i : FORT-iT0250 : NEXT 
’ : FORT=1TO450 : NEXT 
i : FORT-1TO300 : NEXT 


P0KE54296, 15 : P0KE54277, 64 : h , UKc.U42r d, 64 • PUKE34276, i Y 
P0KE54273,34:P0KE54272,75 
P0KE54273,51:P0KE54272,87 
P0KE54273,34 ; PÜKE54272,73 
FORI=80Tü140STEP2.5:P0KE54273,I•NEXT 
FORI=200TO50STEF‘-3 : P0KE54273, I : NEXT 
P0KE54273,0•P0KE54296,0 : PÜKE54276,0 
GOTO1750 

F0RL*54272T054296 : F'OKEL, 0 : NEXT : RETURN 
GGSUB1710 ; PRINTLEFTf <R$,10>SPC(10)"ILOS MANDOS SON 
PRINTSPC(6> !, :i®p-iZir - IZQUIERDA '«XiK - DERECHA" 
F’RINTSPC<6) " WWIBARRA ESPACIADORA» - RfiVQ LASER" 
PRINTSPC<6>"M»ttPULSE y iSIK SI ESTA PREPARADO." 
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1318 GETX* •' I FX*=" S"THEN2160 
2010 I FX$0S "THEN13 i @ 

2i00 POKE53280,8•P0KE53231,8:PRINT" IT 

2-11® PR i N i lefi * ( ¡3$ , 3 ) spu <. 2 .> 11 rt> y 3 y y )• y y y y y y y y y y y > y y y yyyy y y y y y y y yyyy " • rem 36 - y 

2210 FORI =4T015 : PRINTLEFT*(fi*, I )SPC<2>">"SF'C(34) ; : NEXT 

2310 PRINTLEFT*<fi*,16)SF'C<2) "»»»»»»»»»»»»»»»»»»" : REM 3 - > 
2410 PR I NT " 38" TRB < 6 >" «PUNTOS ~"Pi TfiB<22> "CAZADAS -"C 

2510 .PR INTLEFT* í fi*, 4 > SF'C ( 3 >" a»?????????????????????????????????? "; : REM 34 - ? 

2610 FORI-5TO14 = PR I NTLEFT* < fl*, I) SPC ( 3)" Cti 
2620 NEXT 

2718 F'R I NTLEFT* (R*,15)SF’C(3)" SÜTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTT":REM 34 - T 

2810 X=20:DIMñC34):P=0:C=0 

2820 P0KE53265,PEEK<53265)0R64 : P0KE53283,4 

2310 PRINTLEFT*<R*,15)SPCCX)" SB ":XI=X:G03ÜB1720 

3810 GETX* 

3110 I FX*=''2" RNBX>3THENX1 =X- i: GOTO4210 
3210 I FX*= " X " RNDXC36THENX1 =X+1: G0T04 i 10 
3310 IFXTO" "THEN4010 
3330 D=D+1 

3400 P0KE54236, 12 : POKE54280, i : FOKE54279.. i 16: PGKE54284,15 ; PGKE54283,123 
34i0 FORI=13T05STEP-1 
3420 PGKE54236,(1-4) 

3510 PR INTLEFT* <R*, I) SPC<X1)" Sil; " 

3610 PRINTLEFT*(fi*,I +1)SPC<X1)"a ":NEXT 
37 i 0 PR I NTLEFT* < fi*, 5) SPC ( X1)"” 

3720 P0KE54273,0:POKE54280,0:P0KE54283,0:P0KE54236,0 
3810 IFfi(X-2)THtNP=F'+25*:fi(X-2) : C=C+ i ■ fi(X-2) =0 
3310 PRINT"S"TRB(14)”HB"PTTRB<31)C 
4010 GOTO4310 . 


4110 PRINTLEFT*(fi*, 15)SPC(X) n .aKT"TFiB(Xi ) "3 : " • X=X1: GOTÜ4310 

4210 PRINTLEFT* Cfi*,15)SPC(XI)" ¡S3:"TflB(X)"KT":X=Xi 

4310 Ir(RNIK1)*i0000)>(F+8000)THEN3810 

4410 fi=INT(RNB(1)#34) + í 

4510 PR I NTLEFT* (fi*, fi C fi ) +5 ) SF'C (fl+2 ) " ' 

4610 FRINTLtt- T* (fi*, fi (fi) +6)SF'C (fi+2) " »■. :: 

4710 fi(fi)=ñ(fi) +1•IFfi <fi)=3THEN4300 
4810 GOTO3010 

4300 F0RI-5T013 : PRI NTLEFT* (fi*, I-)SF'C(fi+2)" «■=": NEXT 


4310 

4326 

4330 

4335 

4348 

4380 

4330 

5000 

5010 

5020 

5030 

5040 

5050 

5110 

5210 

5310 

6010 

6110 

6210 

6310 

6418 

6510 


PR i NTLEFT* ( fi*, fi (Fl) +5 ) SF'C (fl+2)" SK" 

GOSUB1728•PGKE54236,15:P0KE34277,1S0:F0KE54278,64:PGKE54276,17 
FGR I=1T038STEP. 2: P0KE54273,1 • NEXT 
FORI=5@TO20STEF-.2 : PQKE34273,I:NEXT 
FORI=10TO40STEF.2:P0RE54273,í:NEXT 
P0KE54273, 8 • PGKE54276,6 •' PGKE542S6,6 
F'C= I NT < P/C) • IF í F'/C-1 NT (FVC ) ) >. 4THENPC= I NT < PC ) + i 
DI=H-C•IFDI>0THENPfi=1 

PRINTLEFT*(fi*, 18 )"HR PROMEDIO - "PC" PUNTOSXflRRNnhUKS 

IFDI = lTHENF'RINTSF'C(10) "WHfl FALLADO UNfi VEZ" : GOTO5050 
I FF'fi= 1THENPP. INTSFC ( 8 ) " ÍWFl FALLADO "DI" VECES": GOTO5050 
F'RIHTSF'C(8)")8NO Hfi FALLADO NINGUNA VEZ." 

F'RINTSF'C(5)"MSMlilDESEñ INTENTARLO DE NUEVO <S/N)" : CLR 
GETX*:IFX*="S"THEN1750 
IFX*="N"THENSVS64753 
G0T05110 

DfiTfi24,255,126,126,126,60,231,135 
DfiTfi24,56, 36, 124,30,6,23,24 

'DATAS, 24,60,60,90,123,123,66 

DATAS, 8,8,8,8,8,8,8 
DfiTfi255,255,255,255,255,255,255,255 
DfiTfi136,235,156,136,136,207,68,8 
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VIC 20 + EXPANSION DE 3K 

José M. Pérez Murano, lector de 
Commodore Magazine en Barcelona, 
es el autor de «BATALLA NAVAL». 
El programa es una versión del popu¬ 
lar juego de los «barquitos», pero en 
el que el contrincante va a ser tu or¬ 
denador VIC en lugar de cualquier 
otra persona. 

El programa presenta en la panta¬ 
lla una cuadrícula de 10 x 10 sobre 
la que se van efectuando los disparos 
por medio del teclado. Cada disparo 


efectuado deja su señal en la panta¬ 
lla, tanto si ha sido un disparo al agua 
como si el impacto ha dado de lleno 
en algún barco. En cada uno de los 
casos el carácter sobre la pantalla y el 
sonido que puede escucharse son di¬ 
ferentes. 

El numero y dimensiones de los 
barcos son los reglamentarios de este 
juego, es decir: 1 barco de 4 casillas, 
2 de 3, 3 de 2, y 4 de 1 (estos últimos 
son los submarinos). 

En el margen derecho de la panta¬ 
lla aparecen representados en todo 


PREMIADO CON 

ÍYcYe: 


PESETAS 



momento los barcos que quedan por 
destruir, desapareciendo la represen¬ 
tación de cada barco cuando resulta 
hundido. 

Al terminar la partida podremos 
ver el número de los disparos efectua¬ 
dos y tendremos la posibilidad de ju¬ 
gar de nuevo o de terminar con el pro¬ 
grama. 

La estructura del programa es la si¬ 
guiente: 


1000— 1100 Comprueba que no 
se tocan los barcos 
2000—2030 Presentación 
3000— 3020 Crea barcos 


20 — 

70 

Coloca el barco de 4 

80 — 

250 

Coloca dos barcos 
de 3 

300 - 

470 

Coloca tres barcos 
de 2 

490 — 

540 

Coloca cuatro bar¬ 
cos de 1 

600 — 

620 

Entrada disparo 

709 — 

710 

Pinta tablero 

630 — 


Agua 

635 — 


Tocado hundido 

6010 — 


Sonido de agua 

698 — 

720 

Pinta tablero modi¬ 
ficado 

6000 — 


Ruido tocado 

635 — 

653 

Comprueba si es 
hundido 

4000— 

4090 Fin. Dibuja tablero 
completo y acaba 

655 — 

675 

Borra los barcos 


hundidos 


44^5^2 
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1 P0KE36378,15 

2 GOSUB2000 

3 P0KE36879.» 8 : PRINT" a(" 

4 GGSUB3000 

10 BIMFK12,12> 

20 X=INT<RND(1)#10) + 1 
30 V®INT<RND<1)#10)+1 
40 IF < X>7fiNDY>7 > THEN20 
50 ñ<X,Y>=4 

60 IFX>7THENFKX,Y+l)~4 : ñ<X,V+2>=4:FKX,V+3)*4:GOTG80 

70 R < X+1, V > =4: fi C X+2 A')=4 ñ C X+3A > =4 

80 F0RT=1TG2 

90 X-1NT <RND(1)#10)+1 

100 V=INT(RNBC1)#10)+1 

110 IFX>8fiNDV>8TKEN90 

115 XX*X : VV=V 


125 IF C X<8fiNDV<8)THEN200 
130 IFV>8THEN170 

140 FORK*0TO2:VV-V+K:GOSUB1000:NEXT:IFJ®1THENJ«0 1 GOTO90 
145 IFH-3THENH-6 : GOTO160 
150 H=3 

160 FORK=0TÜ2 : fi < X,V+K)«H : NEXT:GGTG250 

170 FORK a 0TO2•XX®X+K:GOSUB1000:NEXTK:IFJ=1THENJ=0:GOTG90 
1721FH«3THENH®6 : GOTO180 
175 H=3 

180 FORK-0TO2:fi < X+K,V)»H:NEXT:GOTO250 
200 I FX/2= I NT < X/2 "> THEN 140 
210 GOTO170 
250 NEXT 
300 FORTUITOS 
310 X*INT<RND<1)#10)+1 
320 V=INT<RNDa)#10) + l 
330 IF < X>9fiNDV>9)THEN310 
340 XX®X : VV=V 

350 IF < X<9ñNDV<9)THEN440 
360 IFV>9THEN400 

370 FORK=0TO1:VY=Y+K:GOSUB1000:NEXT 
380 IFJ=1THENJ=0:GOTO310 
382 IFH=5THENH=7:GOTO390 
384 IFH=2THENH=5:GOTO390 
386 H=2 

390 FORK-0TO1:FKX,Y+K)»H:NEXT:GOTO470 
400 IFVC9THEN440 

410 FQRK=0TG1:XX=X+K:GOSUB1000 : NEXT 
420 IFJ=1THENJ=0 : GOTO310 
422 IFH=5THENH«7:GOTO430 
424 IFH-2THENH=5:GOTO430 
426 H=2 


430 fl<XA)=H:ñ<X+1,V)=H:GOTO470 

440 IFX/2=INT < X/2)THEN410 

450 GOTO370 

470 NEXT 

490 F0RT*1T04 

500 X«INTCRND<1)*10)+1 

510 ’t-INT (RNDC1 )#10) + 1 

520 XX-X:VV*V : GOSUB1000:IFJ=1THENJ=0: 



GOTO500 
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Utilizar un COMMODORE 64 únicamente 
para jugar, es como pedirle a Albert Einstein que 
nos resuelva la raíz cuadrada de cuatro. 

El cerebro del ordenador apenas funciona. 

Para aprovecharlo al máximo, lo que Vd. 
necesita son programas interesantes (archivo de 
documentos, educación interactiva, estimulantes 
juegos o proceso de textos) y lógicamente los 


periféricos adecuados: 

— La unidad de disco Commodore, un 
almacenaje de datos muy rápido, fiable y de 
gran capacidad. 

— La unidad de cassette Commodore, una 
forma económica de introducir y almacena- 
programas. 

— El monitor en color Commodore, para 


MICROELECTRONICA Y CONTROL c/ Valencia, 49-53.08015 Barcelona, el Princesa, 47,3.° G. 28008 Madrid 
UNICO REPRESENTANTE DE COMMODORE EN ESPAÑA 









COMMODORE COMPUTER Advierte que al 
comprar uno de sus productos exija la garantía de 
MICROELECTRONICA Y CONTROL, S.A., 
única válida para todo el territorio nacional. 


O© 


COMMODORE MPS801 
Impresora de matriz 


COMMODORE MCS801 
Impresora cuatro colores 


COMMODORE DPS1101 
Impresora de margarita 


COMMODORE 1520 
Printer plotter cuatro 
colores 

COMMODORE 1541 
Unidad de disco 170 K 


COMMODORE 1530 
Unidad de cassette 


COMMODORE 1701 
Monitor con color y sonido 

JOYSTICKS 

PADDLES 

SOFTWARE Y LIBROS 


10% de su cerebro? 


! 

i 

i 


lograr que los textos y gráficos sean más 
claros y vivos que en un televisor. 

— 3 impresoras y un printer-plotter, para 
copias en papel, en blanco y negro o color. 

— Los joystick y paddles, para conseguir que 
los juegos sean más excitantes. 

Sea exigente. Si su cerebro, el de su 
COMMODORE 64, puede darle 100, no se 
conforme con 10. 


C.S commodore 

COMPUTER 

la emoción del futuro 


í 
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530 R<X,Y)=1 
540 NEXT 

590 PRI NT" !" : PRI NT 

595 FORX=1TO10 : FORV=1'TO 10:T$(X,Y) = " J" •NEXTV ; NEXTX 

596 GOTO709 

600 PRINT : PRINT : RC=RC+1 ; INPUT"DISPARO ";A$ 

605 X*ñSCCMID$<A$,1,1))-64‘IFXC1ÜRX>10THENPRINT" TIT 1 ;^GOTO600 

608 IFMI D$ t R$,2, 1 >»"" THENPRI NT" TU"; : GOTG600 

610 Y=ASC < M1D$ R$,2,1) )-48 : I FV> 10GRVC1 THENPR I NT " TTT' i '■ GGTÜ600 

615 I F't- 1 ANDMID$<H$,3,1)-"0"THENV= 10 

620 IF T$<X, Y)O n J" THENPR I NT" TTT' ; : GOTÜ600 

625 PRINT:PRINT 

630 IFR < X,Y) =0THENF’RINT"XI EJRGUAS " : T$(X, V) = !, 0 M : GÜSUB6010 : G0TÜ69 

8 

635 PRINT"» SÍTÜCADOS"; : T$(X, V) = "t" : GGSUB5000 : GÜSUB6000 
640 IFñ<X,V)01RNBRCX,Y > C5RNDQ(ñ <X, Y))Oft<X,V)THEN698 
645 IF < R < X, V ) =50RR ( X, V ) =7 > ANDQ < R < X, V ) ) O2THENGGT0698 
650 IFR (X, V ) =6RNBQ < R< X, V ) )O3THENG0TG638 
653 PRINT" Sít'I aHUNDIHGl" 

655 W=R(X,V) 

656 IFW-5GRW=7THENM=2 

657 IFW=6THENW=3 

660 IFW=4THENE$(9)=" ":GÜTÜ630 

665 IFW=3THENE$<7+EB)=" ":BB=BB+1:GOTO680 

670 IFW-2THENE$(4+CC)-" ":CG=CC+1 : GGTO680 

675 IFW= 1 THENE$(IlD)-" ":BD=r¡n+l 

680 HH-HH+1:IFHH-10THENGOTG4000 

698 PRINT" 

699 PRINT"3" 

705 PRINT 

709 PRINT" 123456789101" 

710 FORT*1TG10:PRINT•PRINTGHR$< 64+T);:FÜRJ=1TÜ10:PRINTT$<T,J); : NEXTJ 

715 PRINT" ";E$(T-1>;•NEXTT 

720 GGTG600 

999 END 

1000 FGRF=-1T01 : FORG--1T01 : IFR(XX+F, VV+G)O0THENJ-1 
1010 NEXT:NEXT=RETURN 
2000 PGKE36879, 8 : PR I NT" JT 

2010 pr i nt " brtrllr nrvrl 

2020 pr i nt " *m*****m%%w " 

2030 RETURN 

3000 FORT=0TQ3 : E$<T)="t" : NEXT 
3004 FGRT=4T06:E$(T)="••":NEXT 
3008 F0RT=7TG8 : E$(T)="•••":NEXT 
3010 E$(9) = "MM" 

3020 RETURN 

4000 F0RK=1TG7000:NEXT 
4020 PRINT"!":PRINT" 12345678910"; 

4030 FORI=1TG10:PRINT:PRINTCHR$(64+1);:FGRJ=11Ü10 
4040 IFT$<I,J)="0"THENT$CI,J)="J" 

4045 PRINTT$(I,J);*NEXTJ ; NEXTI 

4050 PRINT : PRINT : PRINT : PRINT : PRINT"HRS GRNRBO LR BRTRLLR 
4055 PRINT ,, WDISPRRflNDO";RC; " VECES" 

4060 PRINT : PRINT"DESERS CONTINUAR (3/N)" 

4070 GETR$ : IFR$=""THEN4070 
4080 IFR$="S"THENRUN 
4090 END 

5000 Q<R(X,V))=Q<fi(X,V))+l:RETURN 

6000 FORYV*1TO200:P0KE36877,200:NEXT:PGKE36877,0:RETURN 
6010 FORVY-241TO120STEP-1:P0KE36876,VY:NEXT:RETURN 
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COMMODORE - ORIC 
AMSTR AD - SPECTRUM 
SPECTRAVIDEO 


JUEGOS 


LAS ULTIMAS NOVEDADES 
DE SONIMAG 

//YA DISPONIBLES// 
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REVISTA INDEPENDIENTE EN CASSETTE 
PARA USUARIOS DEL COMMODORE 64 


LEMANS 

Sólo para ases del Volante 

GENERADOR DE 

ESPRITES 

MULTICOLOR 

SINTETIZADQR 
DE MUSICA 


FROGGER 

Aventuras y desventuras 
de una rana 

TRUE SPIT 

Una aventura en el oeste 

EXTRAMON 

Monitor código maquina 





iNFODlS^g 
envían^ 0 eSarevista 


Cl mundo entero de 
la nueva música a su alcance 


Y mucho mas 















































































VIC 20 4- EXPANSION (8K o 16K) 

Este programa nos lo envía Jordi 
Pallarás Mulet, desde Barcelona, ad¬ 
viniéndonos que ha sido empleado en 
la enseñanza de alumnos de básica y 
BUP (aunque no nos dice si con éxi¬ 
to o no). El programa permite reali¬ 
zar cálculos con las fórmulas de inte¬ 
rés simple y compuesto, definiendo el 
tiempo en años, meses o días y per¬ 
mitiendo la elección de cualquiera de 
las variables de la fórmula como in¬ 
cógnita. Todas estas opciones se pue¬ 
den ir seleccionando de forma senci¬ 
lla una vez que el programa está en 
ejecución sin más que responder a las 
preguntas que aparecen en la panta¬ 
lla. Además, antes de proceder a rea¬ 
lizar ningún cálculo, el programa pre¬ 
senta en pantalla las fórmulas que va 
a utilizar explicando brevemente los 
conceptos incluidos en las mismas. 

El programa está escrito en BASIC 
estándar, sin ninguna referencia a po¬ 
siciones específicas de memoria, por 
lo que puede ser empleado tanto pa¬ 
ra el VIC como para el C-64, tenien¬ 
do en cuenta, eso sí, que está pensa¬ 
do para el formato de pantalla del 
VIC y que de utilizarlo con este or¬ 
denador es necesaria una ampliación 
de memoria (de 8K o 16K). 

| Mil i i i*S 

J. Tf^l~ INIC 
&&&&&&*» *** T fSfcS 

C«s»P I TAL F* I NAL *=* 

3498012.51 PTAS 

R^I>XTO«- 15 

TIEMPO* -4 ANOS 

INTERES* ± ® * **1 

RE^I>V . 

El programa viene estructurado en 
una serie de subrutinas de las que re¬ 
señamos las más importantes: 



SUBRUTINAS 

9500 — 9520 Rutina de im¬ 
presión para la 
selección de pa¬ 
rámetro desco¬ 
nocido 

12000 — 12010 Si el parámetro 
es desconocido 
vuelve a pregun¬ 
tar 

10000 —10020 Entrada de da¬ 
tos 

7000 — 7030 Entrada de to¬ 
dos los datos 
menos el interés 
(incógnita) 


7050 — 7080 
7100 — 7130 
7150 — 7180 
8000 — 8060 


8003 

6000 


8005 

6070 


Entrada de to¬ 
dos los datos 
menos el capital 
Entrada de to¬ 
dos los datos 
menos el rédito 
Entrada de to¬ 
dos los datos 
menos el tiempo 
Escritura y cál¬ 
culo del capital 
final 

Redondeo 
Escritura y cál¬ 
culo del interés 
compuesto 
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1 rem**************** 

2 REM 

3 REM PROGRAMA DE CALCULO DE INTERESES 

4 REM 

5 REM*************** 

6 REM 

10 REM JÜRDI PALLARES 

11 REM 

12 REM#****##******** 

13 N=1 

15 PRINT'LT 

20 PRINT"CON QUE TIPO DE INTERES DESEA TRABAJARSIMPLE O COMPUESTO?" 

30 INPUTAi 

35 IF AíO" SIMPLE :: ANDAiO " COMPUESTO "GOTO 15 
40 IF A$="COMPUESTO"THEH2000 
50 PRINT"Cr 
52 REM*************** 

55 F*RINT"CON QUE PERIODO DE TIEMPO DESEA TRABAJAR ; ” 

56 PR I NT" -ANOS : PR I NT 

57 PRINT"-MESES" : PRINT 

58 PRINT"-DIAS" : PRINT ; PRINT:PRINT 

59 PRINT"RECUERDE QUE COMERCIALMENTE:" 

60 PRINT:PRINT•PRINT"1 MES=30 DIAS" : PRINT:PRINT"1 ANO=360 DIAS" 

61 INPUTBi 

70 IF B$="MESES"THEN600 
80 IF "DIAS"THENi000 

85 IF B$C>"ANOS"ANDBiO"MESES"ANDBSO"DIAS"GOTO50 
90 REM CALCULO TRABAJANDO CON ANOS 
95 PRINT"73" 

100 PRINT"RECUERDE QUE TRABAJO CON LA FORMULA:":PRINT:PRINT:PRINT:PRINT:PRINT 

105 PR I NT " I = < C*R*T (ANOS > >/100- PRI NT : PR I NT : PR I NT : PR I NT : PR I NT" DONDE : " : PRI NT 

106 F'RI NT"C=CAP ITAL" .• M R=REDIT0" 

107 PRINT : PRINT"T^TIEMF’O(EN ANOS) " 

108 FORA=0TO 10000 : NEXT 
110 GOSUB9500 

120 INPUTCi 

130 IF C$*"CAPITAL"THEN300 
140 IF C$="REDITÜ"THEN400 

150 IF C$="TIEMPO"THEN500 

151 GOSUB12000 

152 REM CALCULO CUANDO DESCONOCEMOS EL INTERES 
160 GOSUB10000 

170 GOSUB7000 

200 REM CALCULO DEL INTERES 
210 I=(C*R*T)/100 
220 GOSUB 8000 
230 END 

300 REM CALCULO CUANDO DESCONOCEMOS EL CAPITAL 
310 GOSUB10000 
320 GOSUB7050 

350 REM CALCULO DEL CAPITAL 
360 C=<100*1)/<R*T> 

370 GOSUB 8000 
380 END 

400 REM CALCULO CUANDO DESCONOCEMOS EL REDITO 
410 GOSUB 10000 
420 G0SUB7100 
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450 REMCALCULQ DEL REDITO 
460 R= <100*1 )AC*T) 

470 GOSUB8000 
480 END 

500 REM CfiLCULO CUANDO DESCONOCEMOS EL TIEMPO EN ANOS 
510 GOSUB10000 
520 GOSUB7150 


530 REM CALCULO DEL TIEMPO EN ANOS 
540 T=< 100*1 )AC*R) 

550 GOSUB8000 
560 END 

600 REM CALCULO TRABAJANDO CON MESES 

609 PRINT"3" 

610 FRINT"RECUERDE QUE TRABAJO CON LA FORMULA:":PRINT:PRINT:PRINT 

616 PR. INT : PRINT : F'RINT" I* < C*R*T )A 200": PR I NT : PRINT 

617 PRINT : F’RINT • PRINT"DONDE : " : PRINT 


618 PRINT"C=CAPITAL","R=REDITO” : PRINT : PRINT "T=TIEMPOCEN MESES)" 

619 FOR A=0TO10000:NEXT 

620 GOSUB9500 
630 INPUTCf 

640 IF C$="CAPITAL"THEN810 
650 IF C$="REDITO"THEN910 
660 IF C$="TIEMPO"THEN960 
670 GOSUB12000 


700 REM CALCULOS PARA EL TIEMPO EN MESES 

710 REM CALCULO CUANDO DESCONOCEMOS EL INTERES 

720 GOSUB10000 

730 GQSUB7000 

740 I = C C*R*T ) /1200 

750 GOSUB8000 

760 END 

800 REM CALCULO CUANDO DESCONOCEMOS EL CAPITAL 


810 GOSUB10000 

820 GOSUB7050 

830 C= <1200*I)A R*T) 

840 GOSUE8000 
850 END 

900 REM CALCULO CUANDO DESCONOCEMOS EL REDITO 
910 GOSUB10000 
920 GOSUB?100 


930 R= <1200*I)/<C*T) 

940 GOSUB8000 
950 END 

960 REM CALCULO CUANDO DESCONOCEMOS EL TIEMPO 

965 GOSUB10000 

978 GOSUB?150 

975 T=< 1200*1) AC*R) 

980 GOSUB8000 
985 END 



1008 REM CALCULO TRABAJANDO CON DIAS 
1010 PRINT"3" 


1011 PRINT"RECUERDE QUE TRABAJO CON LA FORMULAPRINT:PRINT:PRINT:PRINT 

1012 PR I NT" I = < C*R*T ) 736080": PR I NT: PR I NT : PR I NT = PR I NT" DONDE " : F’R I NT 

1013 PRINT"C=CAF’ITAL"/"R=REDITO" : PRINT : PRINT"T=TIEMPOCEN DIAS)" 

1020 FORA=0TO 10000:NEXT 


1030 GOSUB9500 
1040 INPUTCf 
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Ha seleccionado para usted cuatro excelentes programas de juego para su ordenador 

COMMODORE 64. 

Diviértase con ellos y, además, ahorre dinero con esta oferta única y exclusiva para los 
lectores de esta revista. 

AMBUSH 






Como único 
patrulla 


atacantes 


bases de 
armado co 


HIDEOUS BÜI 

¿Está Bill (es decir, tú) dispuesto a 
luchar contra los gigantes para 
salvar a Greta, su (tú) único y 
verdadero amor? Si no lo logras, 
será comida por las hormigas. Y no 
olvides el peligro del barro venenoso, 
a no ser que lleves contigo una 
tableta de antídoto. Puedes valerte 
de los arpones, pero durarán poco. 
Rompiendo paredes abrirás caminos 
para la fuga. Al final, el amor y una 
sorpresa. 

Precio: 1.550 pta3. 


FALCON PATRO! 

superviviente de la 
Halcón, te toca a tí 
¡r que los reactores 
no destruyan las 
ilaciones petroleras y tus 
aprovisionamiento. Estás 
con cien misiles y un radar 
muy sofisticado en pantalla. 
Si te quedas sin combustible, podrás 
aterrizar verticalmente, pero 
mientras estés en tierra serás 
vulnerable a la metralla. 
Cuanto más tiempo sobrevivas, más 
enemigos vendrán a por tí. 
Precio: 1.550 ptas. 


V 

% 




I 

QO 

4» 

LCvt^ 

V 


BÍTMANIA 

Sorpresa. Estás dentro del bus, da 
datos de tu 64 y debes batallar 
contra un^ aluvión de neuronas. 
Tu tarea, alcanzar el núcleo del 
sistema. Pero para defenderse a sí 
misma la CPU envía contra tí sus 
ejércitos de bits. Tú puedes 
destruirlos, pero cuando lo 
consigues se transforman en pods. 
que te impiden avanzar al siguiente 
nivel. Y además, cada 8,5 segundos 
la CPU enviará otro bit para 
reemplazar a cada uno destruido. 
Si tienes templados los nervios, no 
caerás en el pánico. 
Precio: 1.550 ptas. 


y envíe este cupón HOY MISMO a: 
EVFODIS, S.A. 
o Murillo, 377-5.°-A 
28020 MADRID 


Estás pilotando una nave espacial y 
tienen que cargar combustible 
de una nave nodriza. En el camino 
serás atacado. Puedes utilizar tu 
cañón de rayo láser, pero cuando un 
atacante es alcanzado no muere: se 
divide en dos y tu problema se 
multiplica. No acaban allí tus 
dificultades: tienes que esquivar 
(o destruir) sus bombas de protones. 
Hay siete, ¡siete! oleadas de 
enemigos. Tal vez te convenga 
atracar en la nave nodriza para 
coger un cañón láser más potente. 
Precio: 1.550 ptas. 


Usted puede comprar cualquier; 
de estos cassettes a su precio 
individual de 1.550 Ptas. 

Pero también puede adquirir el 
lote de 4 por sólo 4.650 Ptas 
Y AHORRARSE 1.550 Ptas. 

O sea, cuatro cassettes por el 
de tres. Aproveche esta 
oferta limitada. 


Envíenme a mi domicilio, al precio de 1.550 Ptas. cada una, más 95 Ptas. de gastos, la cassette o 
cassettes que le indico a continuación, marcando con una (X) en el casillero correspondiente. 
Queda bien entendido que pidiendo las 4 cassettes obtengo un ahorro de 1.550 Ptas., lo que me 
supone UNA CASSETTE GRATIS (Sólo pagaré 4.650 Ptas. más 95 Ptas. por gastos de envío). 


□ HIDEOUS BILL □ AMBUSH 


□ 


FALCON PATROL 


BITMANIA 


□ 


Las 4 cassettes, en las ventajosas condiciones de AHORRO para mí (4.650 Ptas.). 


El importe lo abonaré: 

POR CHEQUE □ CONTRA REEMBOLSO □ CON TARJETA DE CREDITO □ 
American Express O Visa D Interbank O Fecha de caducidad _ 


Número de mi Tarjeta 


Nombre . 


Dirección 
Ciudad _ 


D.P. 


Provincia _ 

Cada envío llevará 95 Ptas. en concepto de gastos. 














































C ot» curs ° 

° i 

1050 

IF C$="CAPITAL"THEN 3110 



1 s 

O I 

1060 

IF C$="REDITO"THEN3210 



° 

o 1 

1070 

IF C$="INTERES"THEN3000 



0 

O I 

1080 

IF C$= " TI EMF'Ü !1 THEN3400 



1 0 

° 1 

1090 

GOSUB12000 



1 o 

; 0 

¿000 

REÍ'I CALCULOS PARA INTERESES COMPUESTOS 



i 2 

O 

2010 

F'R I NT "IT 



i 2 

O 1 

2015 

PRI NT : F'R I NT : F’R I NT : PRI NT :PRINT" TRABAJO CON 

fiNQS 

I! 


o | 

2016 

PRINT"RECUERDE QUE UN ANO COMERCIAL=360 

DIRS 

PRINT:PRINT 

1 o 

O | 

2018 

FOR I=0TO10000 ; NEXT 



1 o 

o 1 

2019 

PRINT" 73“ 



1 O 

o 

2620 

PRINT"RECUERDE QUE TRñBfiJQ CON LRS FORMULAS:" 

: PRINT-’PRINT 

1° 

o 

2021 

F'RINT" C=CO< 1+R> ÍN" ; PRINT : PRINT 



1 ? 

o* 1 

2022 

F'RINT" I =CO C a +«: R/ 100 > ) TN -13" : F'RINT 




o I 

2030 

F'RINT"DONDE ; " : F'RINT 



1 o 

o ¡ 

2031 

F'R INT"C=CAP I TAL FINAL" = F'R INT 



1 0 

° 1 

2032 

F'RINT"CO=CAPITAL INICIAL" : F'RINT 



1 ° 

o 

2033 

PRINT"R=REDITÜ EN X" ; PRINT 



l 2 

o 

2034 

F'R INT "N=T IEMPO EN ANOS " : F'RI NT 



o 

o 1 

2035 

PRINT" ¡“INTERESES EN F'TAS." 



° 

o I 

2037 

FOR A=0 TO 10000: NEXT 



I o 

o 

2040 

PRINT" 13" 



1 o 

O I 

2050 

PRI NT "CUAL ES EL VALOR DESCONOCIDO..FRI NT 

•PRINT-FRINT 

° 

o 

2051 

F'R I NT" -CAP I TAL FI NAL " : PR I NT 



1 ° 

O 1 

2052 

F'R I NT "-CAPITAL INICIAL": FRI NT 



o 

o 1 

2053 

PRINT"-REDITO":PRINT 



° 

o 1 

2054 

PRINT"-TIEMPO":PRINT 



1 o 

o 

2055 

PRINT"-INTERES?"¡PRINT 



1 o 

O | 

2060 

INPUTDf 



° 

o 

2070 

IFD$="CAPITAL FINAL"THEN2120 



1 ° 

O 1 

2030 

IFB$="CAPITAL INICIAL"THEN22i0 



° 

o 1 

r\ 1 

2090 

IF D$="REDITQ" THEN 2300 




O | 

2100 

IF D#="TIEMPO"THEN2400 



n 

1 O 

o 1 

2110 

IF D#="INTERES"THEN2500 



1 o 

n 1 

2120 

REM CALCULO DEL CAPITAL FINAL 



1 n 

o 

2130 

GOSUB10000 



O 

O 1 

2140 

INPUT”CAPI TAL INICIAL=",CO 



O 

o | 

2150 

INPUT"REDITO=";Z 



I o 

O | 

2155 

R=Z/100. 



1 o 

o 

2160 

INPUT"TIEMPO <EN ANOS > =";N:PRINT 



1 o 

o 

2170 

C“CO#a+R)fN 



'o 

o 

2180 

GOSUB 6000 



1 o 

o 1 

C\ 1 

2190 

END 



0 

U | 

C\ 1 

2200 

REM CALCULO DEL CAPITAL INICIAL 



I o 

vj 

1 

2210 

GOSUB10000 



1 o 

u 

o 1 

2220 

INPUT"CAPITAL FINAL";C 



1 0 

VJ I 

2230 

INPUT"REDITO";Z 



1 n 

vj 

r \ 

2240 

INPUT"TIEMPO(EN ANOS)";N 



o 

VJ 1 
r \ I 

2245 

R=Z/100. 



o 

VJ 1 

2250 

CO=C/<(1+R)TN3 



1 o 

o 1 

2260 

GOSUB6000 



1 o 

o 1 

2270 

END 



I ° 

O 1 

2300 

REM CALCULO DEL REDITO 



1 ^ 


2310 

GOSUB10000 




*J 1 
o f 

2320 

INPUT "CAPITAL INICIAL"ICO 



! o 

u | 

2330 

INPUT"CAPITAL FINAL" i C 

A 



¡2 
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2340 I NF’UT " TIEMPO< EN ANOS > "; N 
2350 R=<<C/CO )f<1/N > ) - i 
2355 Z=R#100 
2363 GOSUB6000 
2370 END 

2400 REM CALCULO DEL TIEMPO EN ANOS 

2410 GOSUB 10000 

2420 INPUT"CAPITAL INICIAL"jCO 

2430 INPUT"CAPITAL FINAL";C 

2440 INPUT"REDITO"JZ 

2445 R=Z/100. 

2450 N®<LOG(C/CO>/LOG<10>>/<LOG<1+R}/LOO <10 >) 

2460 GOSUB 6000 
2470 END 

2500 REM CALCULO DEL INTERES 
2510 GOSUB10000 

2520 INPUT"CAPITAL INICIAL";CQ 
2530 INPUT"REDITO”;Z 
2535 R=Z/1'00. 

2543 INPUT "TIEMPO<EN ANOS)"jN 
2550 I®CO#(<(1+R)T<N >)-1) 

2555 C=CO#<1+R)TN 
2560 PRINT"H" 

2564 REM REDONDEO A DOS DECIMALES 

2565 CO®INT CCO#100+0.5)/100:C®INT <C#100+0.5)/100 

2566 I®INT(I#100+0.5)/100 

2570 PRINT"CAPITAL INICIAL=" : PRINT:PRINTCO;" PTAS ":PPINT:PRINT 
2575 PR I NT " CAP I TAL FI NAL® " : PR I NT •* PR I NT C" PT AS " : PR I NT : PR I NT 
2580 PRINT"REDITO®";Z;" X ":PRINT:PRINT 
2530 PRINT"TIEMPO®";Nj" ANOS' ":PRINT:PRINT 
2603 PRINT" INTERES®"; I;" F'TAS " 

2700 END 

3000 REM CALCULO CUANDO DESCONOCEMOS EL INTERES 

3010 GOSUB10000 

3020 GOSUB7000 

3030 I®(C#R#T>/36000 

3040 GOSUB8000 

3350 END 

3130 REM CALCULO CUANDO DESCONOCEMOS* EL CAPITAL 
3110 G O S U B10000 
3120 G O SIJ B7050 
3130 C®<3600#I)/(R#T) 

3143 GOSUB8000 
3150 END 

3200 REM CALCULO CUANDO DESCONOCEMOS EL REDITO 
3210 GOSUB10000 
o 2 2 tí G O S U B 71 tí 0 
3230 R=(36300#I)/(C#T) 

3240 GOSUB8000 
3250 END 

3400 REM CALCULO CUANDO DESCONOCEMOS EL TIEMPO 

3410 GOSUB10000 

3420 GOSUB7150 

3430 T=í36000#I>/(R#C) 

3440 GOSUB8000 
3450 END 

6000 REMSUB.ESCRITURA INTERES COMPUESTO V CALCULO DEL INTERES 
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6005 PRINT "73" 

6010 I=C-CO 

6014 REM REDONDEO ñ DOS DECIMALES 

6015 CO= I NT< CÜ* 100+0.5 >/100: C= I NT < C* 100+0. 5 /100 : 

6016 I = INT <1*100+0.5)/100 
6020 PRI NT " CñP ITftL INICI FiL=" : PRI NT 
6025 PRINTCO;"PTfiS.":PRINT 
6030 PRINT"CRPITñL FINftL= ! ' : PRINT 
6035 PRINT C;"PTfiS.":PRINT 
6040 PRINT"TIEMPO®",N¡"ñNOS":PRINT:PRINT 
6050 PR I NT" RED I TO® 11 , Z 1 u X " : PR I NT 1 PR I NT 
6060 PRINT” INTERES®" , I; "PTfiS. 11 
6070 RETURN 

7000 INPUT”CfiPITfiL=";c:PRINT 
7010 INPUT"REDITO®";R : PRINT 
7020 INPUT"TIEMPO®";T 
7030 RETURN 

7050 INPUT"INTERES®"; I:PRINT 
7060 INPUT"REDITO®";R:PRINT 
7070 INPUT"TIEMPO®"J T 
7080 RETURN 

7100 INPUT"INTERES®"; I:PRINT 
7110 INPUT"CfiPITfiL®";C : PRINT 
7120 I NPUT " TI EMPO®" T : PR I NT 
7130 RETURN 

7158 INPUT”CfiPITfiL®";C:PRINT 
7160 INPUT"INTERES®";I:PRINT 
7170 INPUT"REDITO®";R 
7180 RETURN 

8006 REM SUE.DE ESCRITURO V CfiLCULÜ DE CfiPITfiL FINfiL 

8002 PRINT"73" 

8003 REM REDONDEO fl DOS DECIMALES DE LAS PTfiS 

8004 I = INT <I*100+0.5>/100:C®INT < C*100+0.5 >/ 100:CF=INT <CF*100+0.5)7100 

8005 CF=C+I 

8010 PRINT"INTERES® "; I;"PTfiS.":PRINT:PRINT 
8020 PR I NT " CfiP I TñL® " ; C; " PTfiS. " •* PR I NT : PR I NT 
8030 PRINT "REDITO® " ; R; "7." '■ PRINT : PRINT 
8040 PRINT"TIEMPO®";T;B$:PRINT:PRINT 

8050 PR I NT !! CfiP I TñL FI NñL® ” : PR I NT : PR I NT CF i " PTfiS. ” : PR I NT : PR I NT 
8060 RETURN 

9500 PR I NT" 73" : PR I NT • PR I NT 

9510 PRINT "CUAL ES EL VfiLOR DESCONOCIDO.- " : PRINT 

9511 PRINT"-INTERES" ; PRINT 

9512 PRINT"-CñPITfiL”:PRINT 

9513 PRINT"-REDITO" : PRINT 

9514 PRINT"-TIEMPO?" 

9520 RETURN 

10000 PRINT"73" 

10005 PRINT:PRINT:PRINT:PRINT 

10010 PRINT"ENTRAR LOS VALORES CONOCIDOS CONFORME SE LOS VflVfi PIDIENDO" 
10U15 PRINT 
10020 RETURN 

12000 IFC$0"INTERES"fiNDC$<>"CfiPITñL"fiNDC$<>"REDITO"flNDC$<>"TIEMPO"GOTO110 
12010 RETURN 
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P.V.P. 22.500 Ptas. (disco) 




KEDPS 


Elimina variantes y figuras. 
Desarrollo, lista por impresora 
los boletos del patronato o en 
papel continuo para archivo, 
introduciendo el boleto pre¬ 
miado hace el escrutinio de la 
jornada imprimiendo los pre¬ 
mios dándole el número de 
boleto y columna, etc. 

P.V.P. 15.000 Pts. 


Usa el mismo intérprete que el 
Basic del ordenador. Mantiene 
la misma memoria libre y velo¬ 
cidad de ejecución. 
Comandos y mensajes en 
castellano. 

P.V.P. 2.000 Ptas. cinta 
P.V.P. 2.500 Pts. disco 


CONTROL DE ALMACEN 


Controla 1.200 referencias de almacén, en unidades, 
kilos, litros, metros, etc. Stock mínimo. Realiza gestio¬ 
nes de entrada y salida (incluidas devoluciones). Podrá 
hacer altas, bajas, modificaciones y consultas, Proceso 
de Inventario Físico, Inventario a Precio de Costo y a 
Precio de Venta. Etiquetas... 

Le dará en cualquier momento un listado de productos 
sin movimiento. Además tiene una opción de anotación, 
para los gastos de su empresa, con análisis de rentabili¬ 
dad de su negocio, sin pasar por contabilidad. De fácil 
manejo. TODO EN CASTELLANO. 

P.V.P. en disco 35.000 Pts. 


SAKATI, S.A. Empresa Líder en Soft para COMMODO- 
RE-64, tiene un amplio catálogo de programas, donde 
Vd. encontrará la solución a sus necesidades. 

¡CONSULTENOS! 


Zoom-Pascal para CBM-64 
extremadamente rápido. Aña¬ 
de extensiones y funciones 
que lo hacen verdaderamente 
útil. 

P.V.P. 12.000 Pts. 

P.V.P. 12.500 Pts. 

BOLETIN DE PEDIDO 

A enviar a SAKATI, S.A. - Ardemans, 24 - 28028-MADRID ¡ 


Ref Cdad. Precio 


□ Talón adjunto 

Fecha: 

□ Contra reembolso 

Firma: 

TOTAL 




Don 




Calle 



N 9 

Código Postal 

Ciudad 



Provincia 


Tel. 



Maravilloso juego de 
aventuras. Deberá em¬ 
plear su inteligencia y su 
ingenio. 

P.V.P. 1.500 Ptas. cinta 
P.V.P. 2.000 Ptas. disco 

















































CONCURSO MENSUAL DE COMMODORE MAGAZINE 


Su Programa Para Cualquier 
Sistema Commodore 
Puede Hacerle Ganar 5.000 Ptas. 


E l presente 

CONCURSO ESTA 
ABIERTO A TODOS 
NUESTROS LECTORES 
Y SU PARTICIPACION 
E INSCRIPCION ES 
GRATUITA. 

LEA LAS BASES DEL 
CONCURSO 


■ NO SE ESTABLECEN LIMITACIONES 
EN CUANTO A EXTENSION. TEMA ELEGIDO 
O MODELO DE ORDENADOR 


■ LOS CONCURSANTES DEBERAN 
ENVIARNOS A LA DIRECCION QUE FIGURA 
AL PIE. EL CASSETTE O DISKETTE 
CONTENIENDO EL PROGRAMA. UNA 
EXPLICACION DEL MISMO Y. 

AL SER POSIBLE. UN LISTADO EN PAPEL 
DE IMPRESORA. SE PODRAN ENVIAR 
TANTOS PROGRAMAS (’OMO SE DESEE 


■ LOS PROGRAMAS. PREVIA SELECCION. 
SERAN PUBLICADOS EN LA REVISTA. 
OBTENIENDO TODOS ELLOS 5.000 PTAS. 


■ LA DECISION SOBRE LA PUBLICACION 
O NO DE UN PROGRAMA CORRESPONDE 
UNICAMENTE AL JURADO NOMBRADO 
AL EFECTO POR “COMMODORE MAGAZINE”. 
SIENDO SU FALLO INAPELABLE 


■ LOS CRITERIOS DE SELECCION 

SE BASARAN EN LA CREATIVIDAD DEL 

TEMA ELEGIDO Y LA ORIGINALIDAD 

Y/O SENCILLEZ EN EL 

METODO DE PROGRAMACION GLOBAL 


■ ENVIAR A: 

CONCURSO COMMODORE MAGAZINE 



l ° s a n se? copado 

bros. 

o extraña 


C/Bravo Murillo, 377. 28002-Madrid . 








I 


Protege tu Commodore con esta 


Uno oferto especio! y exclusivo 
poro nuestros lectores 


Práctica 


Funda 




Una práctica funda lavable y resistente, que protegerá del polvo 
y de otros deterioros a tu COMMODORE. 
jY que por ser una oferta exclusiva para nuestros lectores puedes 
conseguirla con un 25% de descuento sobre su precio real 
de venta! 

¡Apresúrate! Recorta y envía HOY MISMO 
este cupón a: 

COMMODORE MAGAZINE (FUNDAS) 

Bravo Murillo, 377 - 28020-MADRID 

Las existencias son limitadas 
¡No te quedes sin ella! 


ELECTRO AFICIÓN 

COMPUTER 

C/VI LL ARR0EL.104 BARCELON A-11 TLF. 253760 0- 09 


PRODUCTOS COMMODORE 

Commodore-64 
Disk Drive 1541 
Cassette CN2 
Monitor Color 1701 
Impresora MPS-801 
Commodore 64SX Portable 
VIC-20 


commodore 6 \ 



SINCLAIR 

Spectrum 48K 
Impresora Seikosha 
con interface 
Microdrive 

Teclado DK'TRONICS 
LAPIZ óptico 
Amplificador Sonido 



SOFTWARE 

Contabilidad 
Contabilidad Doméstica 
Control de Stocks 
Mailing y Etiquetas 
Ficheros 
Base de Datos 
Gran variedad de Juegos 
Programas Educativos 


¡inczlair- 


IMPRESORAS 

Seikosha 

Star 

Epson 

NewPrint 

C. Itoh 

Riteman 



GAMA COMPLE TA DE ACCESORIOS 

Interfaces 
Joysticks 

Sintetizadores de voz 
Cassettes 
Cintas 
Discos 

Base de Datos 
Easy Script 
Monitores 
Interpod 
Cables 

Procesador de Textos 
Libros 



ORDENADORES DE GESTION 

Pal Computer 

Commodore 

Apple 



































•' ^fotodo, 

la tib^da 
que usffecL 
necesitaba 


Imagínese una gran tienda 
pensada para usted. Microtodo, 
una tienda en la que encontrará 
todo lo relacionado con el mundo 
de la microinformática y la 
robótica. 

• Más de 30 marcas de 
ordenadores capaces de satisfacer 
todo tipo de necesidades, tanto 
profesionales como familiares. 

• Más de 400 títulos de 

• fm^l^mplia gama de 
complemenllB^maginables: 
interfaces, cassetlÜ|¡^to>py disk, 
diskettes, papel continuWÍ¡j(^^ 

• Los 500 mejores libros y revísll^i 
dedicados a microinformática y 
robótica, editados en varios 
idiomas. Podemos hacerle 
suscripción a cualquier revista 
nacional o extranjera. 

• Cursillos gratuitos de 
adiestramiento y manejo para 
sacar el máximo provecho a su 
inversión. 

• Instalación en su propio 
domicilio de su ordenador, previa 
solicitud. 

to* Personal altamente 


• GarantíFforaH 1 ** 1 ^*®^ 

en todos los productos. 

Y además: 

Precios especiales de lanzamiento. 
Plazos para ordenadores familiares 
y Leasing en ordenadores 
profesionales. 








Identifica 
tus errores 



Durante el desarrollo de un progra¬ 
ma es corriente que cometamos algún 
error de programación. Esto también 
puede ocurrir mientras transcribimos 
un programa, por ejemplo, de Com- 
modore Magazine. En el momento en 
que el ordenador detecta algo fuera 
de orden, se lo advierte rápidamente 
al usuario por medio de un mensaje 
de error en la pantalla. Esto represen¬ 
ta una ventaja con respecto a diver¬ 
sos sistemas de diseño más antiguo, 
que solamente proporcionan un nú¬ 
mero correspondiente al mensaje de 
error y, posteriormente debemos con¬ 
trastarlo con el Manual. 

De cualquier forma, es fundamen¬ 
tal conocer el significado del mensa¬ 
je, para ir directamente a atajar la 
causa que lo produjo. Este artículo se 
detiene en la descripción de los men¬ 
sajes de manera más o menos deta¬ 
llada. 

Comencemos por los errores que 
afectan a los ficheros de almacena¬ 
miento de programas y datos en cas¬ 
sette o diskette. 

FILE OPEN. Hace acto de apari¬ 
ción cuando pretendemos abrir un 
nuevo fichero, con ayuda del coman¬ 
do OPEN, pero resulta que ese fiche¬ 
ro ya ha sido abierto. Entonces dos 
cosas pueden ocurrir: bien no necesi¬ 
tamos reabrir el fichero o necesitamos 
un número distinto de fichero lógico 
con el comando. En caso de duda, re¬ 
curra a cerrar (CLOSE) el fichero y 
volver a abrirlo (OPEN). 

FILE NOT FOUND. Cuando esta¬ 
mos tratando de cargar (LOAD) o ve¬ 
rificar (VERIFY) un fichero almace¬ 
nado en cinta o diskette y el ordena¬ 
dor no le localiza. Lo más probable 
es que el fichero no se encuentre allí 
o hayamos escrito mal el nombre del 
mismo. 

FILE NOT OPEN. Cuando utili¬ 
zamos alguno de los comandos que 
implican la apertura previa de un fi¬ 


chero, aparece este mensaje si no lo 
ha sido. Los comandos que lo pueden 
provocar son: CMD, CLOSE, GET #, 
INPUT#, PRINT#.La solución con¬ 
site en utilizar nuevamente OPEN y 
volver a intentar el comando. 

DEVICE NOT PRESENT. Nor¬ 
malmente, este mensaje suele denun¬ 
ciar que un dispositivo al que nos re¬ 
ferimos no ha sido conectado al or¬ 
denador, o si lo está no recibe alimen¬ 
tación eléctrica (recuerde comprobar 
el conmutador de puesta en marcha). 
En realidad viene a decir que un dis¬ 
positivo de Entrada/Salida no está 
disponible para ser utilizado con los 
comandos OPEN, CLOSE, CMD, 
PRINT#, INPUT# o GET#. Algunas 
veces ocurre que el mensaje no res¬ 
ponde a una causa aparente, sobre to¬ 
do cuando se trabaja con la unidad 
d t.diskette. Aunque es poco corrien¬ 
te que ocurra esto, la mejor solución 
siempre ha parecido ser la puesta a ce¬ 
ro del sistema, y la manera más rápi¬ 
da es apagar y volver a conectarlo. 

NOT INPUT FILE. Si hemos 
abierto un fichero al que sólo quere¬ 
mos enviar datos y tratamos de leer 
algo desde él, surge el mensaje, es de¬ 
cir, cuando empleamos GET # o 
INPUT#. Compruebe el tercer pará¬ 
metro que va detrás del OPEN corres¬ 
pondiente y si no es cero o no hay, el 
fichero abierto es únicamente de es¬ 
critura. 

NOT OUPUT FILE. Se trata del 
caso complementario al anterior. Si 
hemos abierto un fichero para entra¬ 
da de datos e intentamos escribir en 
él, obtenemos el mensaje. En este su¬ 
puesto también podemos examinar el 
parámetro situado en tercer lugar, tras 
OPEN, y si no es 1 ó 2, el fichero es 
sólo para escribir en él. 

NEXT WITHOUT FOR. Aparece 
cuando el ordenador encuentra una 
sentencia NEXT y no ha localizado 
previamente un FOR, que dé comien¬ 


zo al bucle. Esto suele ocurrir más a 
menudo cuando encadenamos varios 
bucles, unos dentro de los otros, y no 
tenemos cuidado de emparejarlos. 
SINTAX. Salta siempre que el orde¬ 
nador se encuentra con un término o 
construcción ilegal, es decir, la sinta¬ 
xis de escritura del texto del progra¬ 
ma BASIC no es correcta. Normal¬ 
mente la culpabilidad hay que buscar¬ 
la en la forma de teclear las palabras 
clave que utiliza el BASIC, pues el in¬ 
térprete es sumamente crítico a la ho¬ 
ra de leerlas. Podríamos habernos co¬ 
mido una letra o añadido alguna de 
más. También es conveniente fijarnos 
en el número de paréntesis abiertos y 
cerrados, que debe ser el mismo. 

RETURN WITHOUT GOSUB. 
Ocurre cuando el ordenador localiza 
un RETURN que no va asociado a un 
GOSUB previo. 

En muchos casos podría ocurrir 
que el programa hubiera entrado en 
una subrutina sin que hubiera inter¬ 
venido GOSUB. En tal caso lo reco¬ 
mendable es examinar los pasos de 
programa que tienen posibilidad de 
alcanzar a la subrutina. Es muy so¬ 
corrido utilizar END al final del pro¬ 
grama, antes de entrar en la zona des¬ 
tinada a las subrutinas, que se suele 
situar al final del listado. 

La existencia de GOTOs incontro¬ 
lados también puede derivar a una si¬ 
tuación de este tipo. 

OUT OF DATA. Este mensaje es¬ 
tá relacionado con DATA y READ. 
Cada vez que el programa llega a una 
sentencia READ, el ordenador va al 
siguiente elemento de una sentencia 
DATA, señalado por un puntero in¬ 
terno del ordenador. Si hay más da¬ 
tos que leer en sentencias READ de 
los que realmente existen en las DA¬ 
TA, es cuando surge este problema. 
Por tanto es conveniente contar en el 
listado para comprobar que dispone¬ 
mos de los elementos suficientes. Mu- 
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chas veces puede ocurrir que hemos 
omitido la coma de separación entre 
dos elementos de DATA y el ordena¬ 
dor trata a ambos como si de uno so¬ 
lo se tratara. 

Otra causa posible es que el orde¬ 
nador necesite volver a leer todos los 
elementos DATA y no hayamos hecho 
utilización de RESTORE para inicia- 
lizar el puntero interno. 

ILLEGAL QUANTITY. Si utiliza¬ 
mos una constante o variable situada 
fuera del rango que puede admitir el 
ordenador, surge este mensaje. Por 
ejemplo, si en PEEK utilizamos un 
valor que supere los K de memoria lí¬ 
mite del ordenador o queremos intro¬ 
ducir con POKE un número mayor de 
255 en una dirección de memoria. 

OVERFLOW. Si realizamos un 
cálculo con el ordenador que supere 
la cantidad 1.70141884E + 38 o sea 
menor que 1.70141884E-38, obtene¬ 
mos este mensaje de desbordamien¬ 
to. En este tipo de programas es útil 
disponer una sentencia que controle 


las diferentes etapas que podrían con¬ 
ducir al mensaje, mediante compara¬ 
ciones. 

OUT OF MEMORY. Este mensa¬ 
je aparece cuando nos quedamos sin 
memoria, por estar llena toda la dis¬ 
ponible. Se puede deber principal¬ 
mente a que el programa es demasia¬ 
do largo o a que está creando dema¬ 
siadas nuevas variables. Aquí la solu¬ 
ción pasa obligatoriamente por aña¬ 
dir más memoria, en el caso del Vic, 
o depurar el programa para que haga 
las mismas cosas con menores reque¬ 
rimientos de almacenamiento. 

Es posible que una vez que consul¬ 
tamos cuanta memoria nos queda, 
mediante el comando FRE, y la res¬ 
puesta es favorable, nos aparezca el 
mensaje. En tal caso suele suceder que 
estamos empleando demasiados bu¬ 
cles FOR...NEXT o GOSUBs encade¬ 
nados entre sí. Otra ocasión en la que 
es frecuente encontrar este mensaje es 
cuando cargamos un programa que 
está almacenado en cassette. El pro¬ 


grama va precedido por un cabecero, 
que incorpora determinada informa¬ 
ción vital para el correcto almacena¬ 
miento del programa que le sigue, así 
como el nombre del fichero que lo 
guarda. Si esta información resulta al¬ 
terada o no se carga correctamente en 
el ordenador, puede alterar parte del' 
sistema operativo del ordenador. La 
solución suele pasar casi siempre por 
la conexión y vuelta a conectar del or¬ 
denador. 

UNDEFD STATEMENT. Con es¬ 
ta leyenda el ordenador nos advierte 
que no existe tal número de línea. 
Suele ocurrir después de que teclee¬ 
mos distintos comandos para la eje¬ 
cución inmediata de un programa, tal 
como RUN un número de línea, GO¬ 
TO o GOSUB. 

BAD SUBSCRIPT. Cuando quere¬ 
mos definir una matriz que almace¬ 
nará datos numéricos o cadenas, lo 
primero que hemos de hacer es di- 
mensionar esa matriz. Si posterior¬ 
mente, en el programa, nos referimos 
a un elemento que sale fuera de esa 
definición es cuando surge el mensa¬ 
je. En otras palabras, el error se pro¬ 
duce cuando el subíndice de ese ele¬ 
mento no esta comprendido en el con¬ 
junto de los que puede albergar la 
matriz. 

REDIM D ARRAY. Cuando defi¬ 
nimos una matriz con DIM, debemos 
darle un nombre que la caracterice, 
pero ese nombre solamente podemos 
utilizarlo una vez. Si lo volvemos a 
utilizar surgirá este mensaje. También 
podría tener lugar si introdujéramos 
un DIM dentro de un bucle, pues la 
matriz sería definida tantas veces co¬ 
mo se repita el mismo. 

DIVISION BY ZERO. Como es ló¬ 
gico, el ordenador no nos permite que 
dividamos ningún valor por cero. Po¬ 
dría ocurrir en el transcurso de una 
operación que utiliza valores propor¬ 
cionados por otras partes del progra¬ 
ma. En tal caso hay que repasarlo pa¬ 
ra ver dónde se genera ese valor cero. 

ILLEGAL DIRECT. Muchas de 
las palabras claves del BASIC no pue¬ 
den ser utilizadas como comandos 
ejecutables directamente. Si lo inten- 
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TOO MANY FILES 
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FILE OREN 
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FILE NOT OREN 
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FILE NOT FOUND 
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41455 

7 

NOT OUTPUT FILE 

41470 

8 

MISSING FILE ÑAME 

41487 

Q 

ILLEGAL DEVICE NIJMBER 

41508 

10 

NEXT WITHOUT FOR 
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41657 

21 

ILLEGAL DIRECT 

41671 

22 

TYF’E MISMATCH 
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STRING TOO LÜNG 
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24 

FILE DATA 
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CAN'T CONTINUE 
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27 

UNDEF'D FUNCTIÜN 

41757 

28 

VERIFY 

41763 

29 

LOAD 
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tásemos salta este mensaje a la pan¬ 
talla. En el caso de que fuera impres¬ 
cindible emplear uno, deberíamos de¬ 
sarrollar una línea o un programa bre¬ 
ve, que nos permita la aplicación casi 
inmediata del comando deseado al or¬ 
denador. 

TYPE MISMATCH. Cuando el 
programa intenta poner el tipo inco¬ 
rrecto de dato en una varible, obtene¬ 
mos este mensaje. Por ejemplo, po¬ 
dríamos encontrar que se asignará 
una cadena a una variable numérica, 
entera o en punto flotante. 

Una revisión del programa dará al 
traste con el problema. 

STRING TOO LONG. La traduc¬ 
ción literal es suficientemente gráfica: 
Cadena demasiado larga. La máxima 
longitud permitida a una cadena es de 
255 caracteres (bytes). Este mensaje 
puede aparecer cuando intentamos 
concatenar (unir) cadenas y el resul¬ 
tado es una que supera esta longitud 
máxima. 

Cuando un programa ha de llevar 
a cabo operaciones con cadenas sería 
conveniente utilizar controles que evi¬ 
ten este tipo de error, obviamente con 
el empleo de la palabra clave LEN$, 
que nos va proporcionando los valo¬ 
res numéricos de la longitud de las ca¬ 
denas. 

FORMULA TOO COMPLEX. El 

ordenador tiene determinados límites 
a la hora de calcular expresiones di¬ 
puestas a manera de fórmula. Si ésta 
es demasiado compleja ante los cri¬ 
terios de la máquina, es cuando se 
produce el mensaje. Uno de los fac¬ 
tores que más influyen suele ser la 
existencia de un número elevado de 
paréntesis, por tanto, una posible so¬ 
lución pasaría por descomponer la 
fórmula en pasos que conduzcan al 
mismo resultado. 

CAN T CONTINUE. Este mensa¬ 
je aparece después de que utilicemos 
el comando CONT, para hacer que un 
programa prosiga ejecutando a par¬ 
tir del punto en que se detuvo. Este 
comando necesita para trabajar que 
el programa hubiera corrido antes de 
pararse. 


UNDEF D FUNCTION. Este 
mensaje es visualizado siempre que 
intentemos utilizar en un programa 
una función que no hemos definido 
previamente con DEF FN. 

VERIFY. En muchos casos desea¬ 
mos verificar que lo grabado en la 
cinta o diskette es exactamente igual 
que el programa existente en la me¬ 
moria del ordenador. Si la identidad 
no es absoluta, este mensaje nos lo 


advierte. La mejor solución consiste 
en volver a grabar (SAVE) el progra¬ 
ma de nuevo. 

LOAD. Indica un error surgido du¬ 
rante el proceso de carga de un pro¬ 
grama en la memoria del ordenador, 
a partir de un cinta o diskette. Lo 
aconsejable es volver a intentarlo de 
nuevo, después de haber apagado y 
vuelto a encender el ordenador. Si tras 
intentarlo varias veces persiste el pro¬ 
blema, poco nos queda por hacer, ex¬ 
cepto posicionar de manera diferente 
el cassette con respecto al televisor; 
pudiera ser que algún campo eléctri¬ 
co alterase el proceso de la carga. 

BAD DATA. El ordenador espera¬ 
ba recibir datos numéricos y el pro¬ 
grama le proporciona una cadena de 
caracteres o viceversa. Examinar las 
variables que siguen a las palabras cla¬ 
ve READ e INPUT, para comprobar 
de qué tipo son. 

BREAD IN LINE. Indica el núme¬ 
ro de línea en que se ha detenido un 


programa que estaba ejecutándose, 
cuando escribimos el comando STOP 
en un programa o presionamos la te¬ 
cla RUN/STOP es proporcionado este 
mensaje. 

EXTRA IGNORED. Surge cuan¬ 
do introducimos un número elevado 
de elementos como respuesta a una 
sentencia INPUT. 

FILE ALREDY EXISTS. En un 
disco no podemos almacenar más de 


un fichero con el mismo nombre. La 
solución consiste en utilizar uno dis¬ 
tinto. 

REDO FROM START. Esto signi 
fica que hemos introducido el tipo 
erróneo de datos cuando el ordena¬ 
dor nos los reclama en una sentencia 
INPUT. 

La explicación de estos mensajes 
puede ayudarnos a compreder mejor 
lo que trata de comunicarnos el or¬ 
denador. Su correcta interpretación es 
una poderosa herramienta para depu¬ 
rar los errores cometidos durante la 
programación. 

El listado de la figura nos propor¬ 
ciona, a título de curiosidad, una for¬ 
ma de ver cómo están almacenados 
los mensajes en la memoria del orde¬ 
nador, con las posiciones de memo¬ 
ria en que se buscan a algunos de ellos 
en el caso de que surga la ocasión. Es¬ 
te programa ha sido desarrollado pa¬ 
ra el 64. 
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1005 

PRINT#3 , CHR$C15)"DIRECCIOH 

NUMERO 

MENSAJE" 

1006 

PRINT#3 , CHR$(15)"MENORIfl 

DE 

II 

1007 

PRINT#3¿ CHR$( 15)" 

MENSAJE" 


1008 

PRINT#3,CHR*(15);CHR$(10 > 



1010 

Fl=41373 



1020 

X=0 



1030 

X*X+1 



1040 

PRINT#3,CHR$a5)fi; " 

ii • y ‘ •• 
t r, .• 

II • 

* 

1050 

ñ«fl+i 



1060 

B=PEEK(R) 



1070 

IF B>128 THEN GOTO 2000 



1080 

C$=CHR$<B) 



1090 

PRINT#3iCHR$<15)C$; 



1100 

IF fi-203 THEN CL0SE3 



1110 

GOTO 1050 



2000 

B=B-128 



2010 

c$=chr$c:b> 



2020 

PRINT#3 > CHR$ <1 5 )C$ 



2030 

GOTO 1030 
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DEMOSTRACION SOBRE COMO 
PODEMOS PARTIR LA 
PANTALLA Vic-20 

Esta corta rutina divide la pantalla 
del Vic-20 en dos secciones. Median¬ 
te los POKE de las líneas 30 y 40 po¬ 
demos variar los colores del fondo y 
el reborde, así como la posición por 
donde partimos la pantalla. 


Una vez que lo hemos cargado, el 
código máquina que contiene es to¬ 
talmente transparente a los programas 
en BASIC que introduzcamos, pues 
en realidad este programa no es ni 
más ni menos que una forma sencilla 
de introducir programas en código 
máquina de manera más cómoda. 


Una vez cargado, queda depositado 
en la memoria del Vic-20, pudiendo 
borrar el programa si deseamos. 

En realidad esto es una demostra¬ 
ción, pero puede ser un interesante 
punto de partida para desarrollar 
otras ideas. 


1 0 FGRJ=828T0895 : READX : POKE J , X:NEXT 
20 SVS828 

30 PRINT" rF0KE869 ,CONTROLA LA POSIC10N DONDE PARTINOS; 

40 PRINT"P0KE876 AND PÜKE883 CONTROLA FONDOS V REBORDES. 

50 DATA 173,4,144,208,251,169,43,141 

60 DATA 37,145,169,66,141,36,145,169 

70 DATA 1,141,94,3,120,169,3,141,21,3,169,93 

80 DATA 141,20,3,88,96,162,0,240,18,206,94,3,163,78,205,4, 144 

90 DATA 208,251,163,170,141,15,144,76,21,235,163,1,141,94,3,169 

100 DATA153,141,15,144,76,191,234 


Esta es la foto que nos hace llegar 
Jesús Rifá desde Barcelona, para 
mostrarnos a todos cómo el ingenio 
supera las difíciles barreras impuestas 
por la falta de espacio. 

Podéis ver que una instalación 
compacta puede albergar a todos los 
elementos necesarios para un mayor 
disfrute del ordenador. Seguidamen¬ 
te, él mismo nos comenta los porme¬ 
nores: «Como pueden observar, mi es¬ 
pacio para el ordenador es bastante re¬ 
ducido, lo tengo dentro del armario 
con un estante corredizo, que lo pue¬ 
do meter y sacar para poder trabajar 


Envíanos la foto de tu ordenador 


i mü'fAtK 


cassette Commodore, un joystick y el 
monitor es una televisión de blanco y 
negro.» 

Pues enhorabuena por tu magnífi¬ 
ca idea. Pronto recibirás en premio un 
cassette de juegos para tu 64. 


mejor. La instalación eléctrica pasa por 
detrás del armario, donde hay un in¬ 
terruptor, un punto de luz y una base 
de enchufe con un triple, donde lo co¬ 
necto todo. Cuando cierro el interrup¬ 
tor se apaga todo. Tengo conectado el 


66 


[ZJSUl- 


NUMERO 9 











No se caliente la “CABEZA” 
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Nuestra calidad es “SEIKO”; 
nuestros precios, únicos. 

Si desea más información, 
consulte con nuestro distribuidor 
más cercano, o llame o escriba a: 



Dirección comercial: 

Av. Blasco Ibáñez, 114-116. 
46022-Valenda. 

Te!. (96) 372 88 89. 
Télex 62220 

Delegación en Cataluña: 

C/ Muntaner, 60, 4, 1. 
08011-Barcelona. 

Tel. (93) 323 32 19. 


ESTOS SON NUESTROS MODELOS: 


Modelo 

Velocidad 

Columnas 

Tipos de 
letra 

Interface 

P.V.P. 

GP-50 

40 cps 

46 

2 

A-Paralelo 

AS-Serial 

S-Spectrum 

A-25.900 

AS-29.900 

S-28.900 

GP-500 

50 cps 

80 

2 

A-Paralelo 

AS-Serial 

A-47.900 

AS-49.900 

GP-550 

86 cps 

80-136 

18 

A-Paralelo 

A-59.900 

GP-700 

50 cps 

80-106 

3 

A-Paralelo 

A-89.900 

BP-5200 

200 cps 

136-272 

18 

Paralelo y serial 

199.000 

BP-5420 

420 cps 

136-272 

18 

Paraleo y serial 
l-lBM PC 

299.000 

1-299.000 


Disponemos de interfaces opcionales para todos los modelos: IBM PC, COMMODORE 64, ZX 
SPECTRUM, ATARI, DRAGON 64, SHRAP MZ 700, SPECTRAVIDEO, NEW BRAIN, APPLE, ETC... 





















COMMODORE 16 
LA EMOCION DE EMPEZAR 

Iniciarse en el mundo de los 
ordenadores personales con un 
COMMODORE 16 es sumar, a la emoción 
de empezar, la emoción del futuro. 

Porque es un ordenador de 
fácil manejo y programación, pero con 
prestaciones que sólo se encuentran en 
ordenadores de costo mucho más elevado. 

Porque es un ordenador 
pequeño, pero con la mayor cantidad de 


software y periféricos, que multiplican sus 
posibilidades futuras. 


Porque es el ordenador ideal 
para empezar y perfecto pan seguir. 


PRINCIPALES CARACTERISTICAS 


- 16 K. 

- COMANDOS DE ALTO NIVEL 
PARA GESTION DE COLOR, SONIDO 
Y GRAFICOS DE ALTA RESOLUCION. 

- TECLADO PROFESIONAL. 


- 40 COLUMNAS x 25 LINEAS. 

-121 COLORES. 

- GRAFICOS EN ALTA RESOLUCION. 

- 2 GENERADORES DE TONO. 

- AMPLIA GAMA DE PERIFERICOS. 




commodore 16 

LA EMOCION DEL FUTURO 



commodore 

COMPUTER 


MICROELECTRONICA Y CONTROL 
d Valencia, 49-53. 08015 Barcelona, d Princesa, 47,3. 0 G. 28008 Madrid. 
UNICO REPRESENTANTE DE COMMODORE EN ESPAÑA 




















